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BITAND EXTERNAL DYADIC FUNCTION 

Syntax: 

Var := Array BITAND Array (CR) 

Where Array is a scalar, vector or matrix. 

Function: 

The BITAND function returns the decimal value of two integers whose binary values 
are AND'ed together bit by bit. The maximum integer which may be entered for an 
argument is 32767. The minimum is -32768. 

See also BITOR, BITXOR, AND, OR and XOR. 

Program Information: 

TYPEOF = Integer 
SIZE = 1 
LENGTH = 1 
SHAPE = null 

Example: 



? 5 BITAND 6 

7 
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BITOR EXTERNAL DYADIC FUNCTION 



Syntax: 

Var := Array BITOR Array (CR) 

Where Array is a scalar, vector or matrix, 

Function: 



The BITOR function returns the decimal value of two integers whose binary values 
are OR'ed together bit by bit. The maximum integer which may be entered for an 
argument is 32767. The minimum is -32768. 

See also BITAND, BITXOR, AND, OR, AND XOR. 

Program Information: 

TYPEOF = Integer 
SIZE = 1 
LENGTH = 1 
SHAPE = null 

Example: 

? 88 BITOR 22 

7 
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BITXOR EXTERNAL DYADIC FUNCTION 

Syntax: 

Var := Array BITXOR Array (CR) 

Where Array is a scalar, vector or matrix. 

Function: 

The BITXOR function returns the decimal value of two integers whose binary values 
are XOR'ed together bit by bit. The maximum integer which may be entered for an 
argument is 32767. The minimum is -32768. 

See also BITAND and BITOR 

Program Information: 

TYPEOF = Integer 
SIZE = 1 
LENGTH = 1 
SHAPE = null 

Example: 

? 8 BITXOR 32 

9 
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BOUNDARYAREA EXTERNAL MONADIC FUNCTION 

Syntax: 

Var := BOUNDARYAREA (n by 2 array) (CR) 
Guidelines: 

The first and last coordinates of the boundary matrix must be the same. 

Function: 

Assigns the variable the area of a boundary whose coordinates are specified in an n by 
2 array. The area is returned in square user units. 

PATHBOUNDARY may be used as an argument for BOUNDARYAREA, to find a path 
boundary area. For example: 

AA := CEKEY (CE/CR) 

AA (CR) 

^8367 

BB := BOUNDARYAREA(PATHBOUNDARY AA)(CR) 

BB (CR) 

X 

Where x is the path boundary area. 
See also PATHBOUNDARY. 
Example: 

NILADIC PROCEDURE AREA 

EXTERNAL CRD; CRDLIST; KEYNUM; INFO; BDAREA; PAREA 

DO 

CRD: =EXPINPUT"PLEASE INDICATE BOUNDARY OR PATH: 
IF CRD <> "" THEN 
KEYNUM; =CEKEY CRD 
IF KEYNUM <> "" THEN 
INFO: =GETEL KEYNUM 
IF < INF0C13)Cn = 3 THEN 
CRDLIST: =INF0C63 

GPLDRAW'WHITE"; "SOL ID"; CRDL 1ST 
BDAREA: =BOUNDARYAREA CRDLIST 
"THE BOUNDARY AREA IS: "; BDAREA 
ELIF (INFOCi3)Ci3 = 4 THEN 
IF INFOC43 <> THEN 

GPLORAWWHITE"; "SOLID"; (PATHBOUNDARY KEYNUM) 
PAREA: ^BOUNDARYAREA (PATHBOUNDARY KEYNUM) 
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"THE PATH AREA IS: ";PAREA 
ELSE 

"PATH HAS NO WIDTH .... AREA" 
ENDIF 
END IF 
ENDIF 
ENDIF 
UNTI L CRD = "" 
ENDDO 

ENDSUB 



? LOAD"AREA" 
7 

? AREA 

PLEASE INDICATE BOUNDARY OR PATH: -5 31. 

THE PATH AREA IS: 22. 

PLEASE INDICATE BOUNDARY OR PATH: 0. ^^. 

THE BOUNDARY AREA IS: 342. 

PLEASE INDICATE BOUNDARY OR PATH: 

7 
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CECOUNT EXTERNAL NILADIC, MONADIC FUNCTION 

Syntax: 

var := CECOUNT (CR) Returns the number of coordinates in the current Item. 

var := CECOUNT n (CR) Returns the number of coordinates in Item n, where "n" 

is an integer number between and 9. 

Function: 

This function returns the number of coordinates in an Item. If no coordinates are 
found in the item, tiie result will be 0. 

Example: 

1 NILADIC PROCEDURE NUMPTS 

2 EXTERNAL CRD; PTS 
3 

4 CRD:=EXPINPUT"PLEASE INDICATE ELEMENT: 

5 IF CRD <> "" THEN 

6 GET CRD 

7 PTS:=CECOUNT 

8 "COORDINATE COUNT: '^PTS 

9 PUT 
10 END IF 
11 

12 ENDSUB 



? NUMPTS 

PLEASE INDICATE ELEMENT: 20. 14. 

COORDINATE COUNT: 13 



TYPE OF = INTEGER 
SIZE = 1 

LENGTH = 1 
SHAPE = 1 
RANK = 1 
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CFORMAT EXTERNAL MONADIC FUNCTION 



Syntax: 



CFORMAT (vector or list) (CR) 

or 
CHARS := CFORMAT (vector or list) (CR) 



Function: 



Returns a character vector representing the elements of a numeric vector or list. 
CFORMAT can handle a list, FORMAT cannot. No (CR)'s are inserted into the 
character vector (differs from FORMAT). 

If the argument is a list, the character vector to be output cannot exceed 512 
characters, or the error message "FORMAT: Cannot handle this big list" appears. If 
the argument is a vector or matrix, the size of the output vector is only limited by 
the size of the GPL II work area. 

The primary function of CFORMAT is to convert a numeric vector or list to a 
character vector. 



Example: 



MONADIC FUNCTION RESULT : =SUBMAT NUM 
LOCAL RESULT; NUM 

RESULT :=CFORMAT NUM 

RESULT. =RESULTC IOTA (1, ((RESULT INDICESOF ".") - 1))3 

ENDSUB 

This monadic function uses the CFORMAT command to first return a character 
vector from the input value of the variable NUM, then subscript the decimal off the 
end of the character vector. 

This character vector may then be concatenated onto the end of a structure name, as 
in the next program example: 

NILADIC PROCEDURE BLDFONTLIB 

EXTERNAL MONADIC FUNCTION SUBMAT 

EXTERNAL N 

:This program will create the necessary structures for creating 
;text fonts, using the first structure "MYFONTO" which contains 
Ithe defining box and measurement paths. 



N =3 I 

DO 

N :=N + I 

N; =SUBMAT N 

CSTRUCT "MYFONTO"; "MYFONT'^N 

N:=EXECUTE N 

UNTI L N = 125 
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ENOOO 




ENDSUB 




TYPE OF 


= CHAR or NULL 


LENGTH 


= 1 


SIZE 


= n CHAR (maximum of 512) 


SHAPE 


= n CHAR (maximum of 512) 


RANK 


= 1 



CLOSESTTO EXTERNAL DYADIC FUNCTION 

Syntax: 

Var := (nX2 array) CLOSESTTO (CE/CR) 

Function: 

Assigns to the variable the index locating the closest polygon coordinate to the 
specified coordinate. The coordinates of the polygon must be stored in an nX2 array. 
Each coordinate is compared to the second argument and the closest one is assigned 
to the variable. 

It is suggested that the coordinates of a polygon be entered into the nX2 array in a 
counter-clockwise direction for consistency. 

Program Information: 

TYPEOF = Integer 
SIZE = 1 
LENGTH = 1 
SHAPE =null 

Example: 

? 34 -34 234 12 -12 10 CLOSESTTO 4 7 

3 
7 

or 

? AA := 34-34 234 12-12 10 

? AA CLOSESTTO 4 7 

3 
7 

For these examples, 3 is the third coordinate in the array, i.e., (-12, 10). 



1-9 



COORDMARK EXTERNAL NILADIC, MONADIC PROCEDURE 



Syntax: 



COORDMARK (CR) 

or 
COORDMARK n (CR) 



Function: 



Marks and numbers the coordinates of an element in an Item. COORDMARK n (CR), 
where "n" is an integer number between and 9, will mark the coordinates of the 
element in Item n. 

The numbers assigned to each cx>ordinate will represent the order in which the 
element was entered into the data base structure. 



Example: 



NILADIC PROCEDURE SHOWCRDS 
EXTERNAL CRD 

CRD: =EXPINPUT"PLEASE INDICATE ELEMENT: 
IF CRD <> '••• THEN 

GET CRD 

COORDMARK 

PUT 
END I F 

ENDSUB 

This program will get the specified element into the current item, the mark and 
number the coordinates in the order they were entered. 
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DRAW ARROW EXTERNAL NILADIC, MONADIC PROCEDURE 

Syntax: 

DRAW ARROW (CE1)(CE2) ... (CE/CR) 
or 

DRAWARROW(CR) 
Coordinate: (CE/CR) 

Coordinate: (CR) 

Function: 

This command draws a bright white arrow on the graphics CRT, superimposed over 
other graphics data. The arrow can be erased (along with all other bright white, 
temporary graphics) by REMOVE or REDRAW without affecting graphics that 
represent elements stored in the GDSII database. More selective erasure is available 
with ERASEARROW. The database itself is not affected by either drawing or erasing 
the arrow. 

The arrow shaft may consist of any number of segments. DRAW ARROW draws a line 
segment from each CE entered to the next CE. The arrowhead is located at the first 
CE, and is automatically rotated to match the orientation of the first segment of the 
arrow shaft. The size of the arrowhead is fixed. 

DRAW ARROW is useful in application such as error reporting and computer-aided 
training. 

Exam pie: 

? DRAW ARROW 

Coordinate: 0. 0. 

Coordinate: 10. 0. 

Coordinate: (CR) 
7 

? DRAW ARROW 0. 0. 10. 0. (CR) 

7 
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DRAWBOX EXTERNAL MONADIC PROCEDURE 

Syntax: 

DRAWBOX "CORNER"; lowerjeft; upper_right; corner_radius; oversize(CR) 
or 

DRAWBOX "CENTER"; center; width, height; corner__radius; oversize(CR) 

Function: 

This connmand draws a bright white, temporary box on the graphics CRT, 
superinnposed over other graprfiic data. The box can be erased (along with other 
temporary graphics) by REMOVE or REDRAW, without erasing graphic data that 
represents elements stored in the GDSII database. More selective erasure is possible 
using ERASEBOX. DRAWBOX adds no data to the GDSII database. 

The box location and dimensions can be specified in terms of either: 

1 ) lower left and upper right box coordinates ("CORNER" mode); or 

2) box center, width, and height ("CENTER" mode). 

The mode is determined by the first command argument, while location and 
dimension information is specified by the second and third arguments, which are 
given in user units. 

The "cor ner_ radius" argument, which is optional, determines whether the box will 
have square or rounded corners. If "corn e£ radius" is omitted or zero, square corners 
will be drawn; otherwise, the corners will be 90-degree arcs with an arc radius equal 
to "corner radius". Unlike the preceding arguments, "corne£ radius" is expressed as a 
fraction of the width of the working area on the screen. For example, a value of 0.0 1 
is equal to 1/100 of the width of the waking area. 

If "corner_radius" is larger than either half the box height or half the box width, the 
actual arc radius will be reduced to the smaller opf those two values. DRAWBOX 
will thus draw a circle of diameter equal to the box height if the command arguments 
specify a large "corne£ radius" value and equal box height and width (see Examples). 

The optional "oversize" argument, if present, causes the box to be oversized relative 
to the dimensions specified by the second and third arguments. Like "corn e£ radius", 
'bversize" is specified as a fraction of the width of the working area on the screen. 

Examples: 

? DRAWBOX "CENTER"; 10, 10; 4, 7 

Draws a box centered at 10, 10, with a width of U user units and a height of 7 user 
units. The box will have square corners. 
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? DRAWBOX "CORNER"; 8, 6.5; 12, 13.5 

Draws the same box as the preceding example, but specifies it in terms of its 
extent. 

? DRAWBOX "CORNER"; 8, 6.5; 12, 13.5; 0.02 

Draws a box similar to the preceding example, but with rounded corners. 
? DRAWBOX "CENTER"; 10, 10; 6, 6; 1.0 

Draws a circle of diameter 6, centered at 10, 10. 

? DRAWBOX "CORNER"; 8, 6.5; 12, 13.5; 0.01; 0.01 

Draws a box with rounded corners around the text. The box is oversized relative to 
the box extent. 

Program example: 

For a program example please see the GPLII program IDNODEPROP.GS. This 
program may be found with the command PROPVALUE in this section. 
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DRAWCROSS EXTERNAL NILADIC, MONADIC PROCEDURE 

Syntax: 



or 



DRAWCROSS (CEi)(CE2) . . . (CE/CR) 

DRAWCROSS(CR) 
Coordinate: (CE/CR) 

■ • 

Coordinate: (CR) 

Function: 

This command draws bright white crosses, resembling GDSII Node elements, on the 
graphics CRT. A cross is drawn at eadi coordinate entered. 3ust as for Node 
elements, the size of the cross is determined by the value of MARKSIZE. However, 
no element is actually created in the GDSII database. 

The crosses are superimposed over other graphic data on the screen. They can be 
erased by REMOVE, REDRAW, or ERASECROSS without affecting graphics that 
represent elements stored in the database. UNDO does not erase crosses drawn by 
DRAWCROSS. 

DRAWCROSS is normally used in GPLII programs, when Node element high-lighting is 
required. 

Program example: 

For a program example please see the GPLII program IDNODEPROP.GS. This 
program is shown with the command PROP VALUE in this section. 
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DRAWPROMPT EXTERNAL MONADIC PROCEDURE 

Syntax: 

DRAWPROMPT "prornpt'KCR) 
or 

DRAWPROMPT "prompt' VR'-lCR) 
or 

DRAWPROMPT "prompt ";"L"(CR) 
or 

DRAWPROMPT "prompt ";"B"(CR) 

Function: 

Displays a prompt, in bright white erasable text, on the graphics screen. Normally it 
is used within a GPLII program to generate messages at certain locations on the 
graphics screen, when the flexibility of the DRAWTEXT command is not required. 
The text font and character set are fixed, and are the same as for DRAWTEXT. The 
text runs horizontally, and has a fixed size. Justification is set automatically, 
according to location. 

The location at which the text will be drawn is controlled by the second argument. 
There are three possible locations. If the second argument is omitted or is "R", the 
text appears at the right edge of the working area on the screen, halfway between 
top and bottom. An "L" argument causes the text to appear at Ihe left edge of the 
screen, midway between top and bottom, while "B" causes it to appear at the bottom 
edge, centered between left and right edges. 

The prompt will remain on the screen until erased by REMOVE, ERASEPROMPT, or 
any command whidi causes the screen to be redrawn. It is advantageous to use 
ERASEPROMPT when it is desired to erase the prompt without erasing other bright 
white graphics that might be on the screen. 

Program example: 

For a program example please refer to the GPLII program IDNODEPROP.GS. This 
program may be found with the command PROPVALUE in this section. 
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DRAWSEGS EXTERNAL NILADIC, MONADIC PROCEDURE 

Syntax: 

DRAWSEGS (CR1)(CE2) ... (CE/CR) 

or 

DRAWSEGS(CR) 
Coordinate: (CE/CR) 

Coordinate: (CR) 

Function: 

This command draws bright white line segments, connecting the entered coordinates, 
on the graphics CRT. If only a single coordinate is entered, a diamond is drawn. No 
element is created in the GDSII database. 

These line segments are superimposed over other graphic data on the screen. They 
can be erased by REMOVE or REDRAW wilhout affecting graphics that represent 
elements stored in the database. Alternatively, more selective segment erasure can 
be accomplished by ERASESEGS. UNDO does not erase line segments drawn by 
DRAWSEGS. 

DRAWSEGS is normally used in GPLII programs, wh«i polygon highlighting or other 
temporary line graphics are required. 

Example: 

7 

? DRAWSEGS 
Coordinate: 
Coordinate: 10 
Coordinate: 10 10 
Coordinate: 
7 

? DRAWSEGS 10 10 10 

7 
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DRAWTEXT EXTERNAL MONADIC PROCEDURE 

Syntax: 

DRAW TEXT text_string; justification; orientation; size; origins; "BOX" (CR) 

Function: 

This command draws bright white text on the graphics CRT, superimposed over other 
graphics data. The text may be enclosed in a bright white box, if "BOX" option is 
used. No database elements are created, and the text may be erased by REMOVE or 
REDRAW without affecting graphics representing elements stored in the GDSII 
database. A specific text string may be erased by ERASETEXT, without affecting 
other superimposed graphics. 

DRAWTEXT is normally used in GPLII programs, when erasable text is required. 
Typical applications are graphical error reporting and visual display of text stored in 
User Properties. 

A preset text font is used. The following characters may be displayed: 

(1) uppercase letters (A through Z); 

(2) numerals (0 through 9); 

(3) dollar sign, period, slash, hyphen, underbar, colon, question mark, comma, 
apostrophe, exclamation point, left/right parentheses, and left/right angle 
brackets. 

The text string may also contain lowercase characters, but these will be translated to 
uppercase before display. Any non-displayable character is replaced by a space. The 
text string may contain up to 1000 diaracters. The user can enter multiline text 
string. Lines are terminated by a percent character, whidi is not displayed on the 
graphics CRT, but just serves as a line separator in the text_string argument. 

The first five arguments must be supplied. The sixth argument is optional. The 
arguments are as follows: 

text__string The string of characters to be displayed. 

justification Justification of text relative to eadi origin. 

Acceptable values are: 

" " Left justification 

"L" Left justification 

"C" Center justification 

"R" Right justification 

"DC" Dead -center justification 

For left, center, or right justification, text position is 
slightly offset from the actual origin, so that if a 
diamond were placed at the origin, text would not 
overlap the diamond. Dead-center justification centers 
the text precisely over the origin. If the text has 
multiple lines, however, text can overlap the diamond 
in any of the above justifications. 
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orientation Specifies one of three directions for text: 



II II 


Horizontal 


II H" 


Horizontal 


"U" 


Upward 


"D" 


Downward 



size Numerical argument specifying text size as a fraction 

of the width of the working area on the screen. (The 
"corner^ radius" and "oversize" arguments of DRAWBOX 
are specified in a similar way.) For reference, a value 
of .01 sets the character height to 0.0155 of the 
working area width. If size=" ", a default value of .007 
is used. 

origins A vector of CEs. Text string is displayed at each origin 

supplied. Maximum of 20 origins is allowed. 

"BOX" An optional argument, if present, causes a bright white 

box to be drawn around the text. The box has rounded 
corners, and is oversized relative to the text extents. 

Examples: 

? DRAW TEXT "THIS IS A%TEXT STRING!"; "DC"; "H"; 0.01; 10,10; "BOX" 

Draws the two lines of the text string "THIS IS A TEXT STRING!" horizontally on the 
graphics CRT, dead-centered at 10, 10. The first line is "THIS IS A", the second line 
is "TEXT STRING!". The character height is 0.155 of the working area width on the 
screen. The origin is just between the two lines of text. The box is drawn around the 
text. 

Program example: 

For a program example please refer to the GPLII program, IDNODEPROP.GS. This 
program may be found with the command PROPVALUE in this section. 



H8 



DROP EXTERNAL DYADIC FUNCTION 

Syntax: 

var := vector DROP array 

Function: 

DROP is a dyadic function defined analagously to TAKE except that the argument 
"vector" sj)ecifies the elements of "array" that will NOT appear in the result. 

Example: 

? AA := 1 2 3 4 5 6 7 8 
? 2 DROP AA 
3. 4. 5. 6. 7. 8. 
? #3 DROP AA 
1. 2. 3. 4. 5. 

? BB := 3 4 RESHAPE (IOTA 12) 
?BB 
12 3 4 
5 6 7 8 
9 10 11 12 
? #1 #1 DROPBB 
1 2 3 
56 7 

9 
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DROUND EXTERNAL DYADIC FUNCTION 



Syntax: 

Var := C DROUND D (CR) 

Z 

Where C is an integer, D is a whole number and z is the value of c rounded to the 
decimal place location specified by D. 

Function: 

Assigns the variable the value of the first argument, rounded to the decimal place 
location specified by the second argument. The second argument must be a whole 
number. When the second argument is 1, it designates that the first argument is to 
be rounded off one place to the right of the decimal point. When it is 2, the first 
variable is rounded two places to the right of the decimal point; when it is 3, the first 
variable is rounded three places to the right of the decimal point, etc. 

Similarly, if the second argument is 0, the variable is assigned the value of the first 
argument rounded to the one's decimal place. If the second argument is -1, the 
variable value is the first argument rounded to the ten's decimal place, and if the 
value of the first argument is -2, the variable value is the first argument, rounded to 
the hundred's decimal place, etc. 

See also ROUND. 

Program Information: 

TYPEOF = Real 

SIZE = Same as SIZE of first argument 

LENGTH = 1 

SHAPE = Same as SHAPE of first argument 



Examples: 



or 



? 3 DROUND 3^07837.8395017 
3407837.840 

7 



? -3 DROUND 3407837.8395017 
3408000 

7 
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ERASEARROW EXTERNAL MONADIC PROCEDURE 

Syntax: 

ERASEARROW (CE)(CE) . . . (CE/CR) 

Function: 

This command erases a bright white, temporary arrow from the graphics CRT. The 
arrow is assumed to have been drawn previously by the DRAW ARROW command, 
using the same coordinates. ERASEARROW operates in a manner identical to 
DRAW ARROW, except that it has only a monadic version and erases instead of 
draws. ERASEARROW does not erase graphics representing elements stored in the 
GDSII database, and does not delete data from the database. 

A temporary, bright white arrow can also be erased by REMOVE or REDRAW, but 
ERASEARROW has the advantage of erasing only tine arrow specified by the given 
coordinates. 

ERASEARROW would generally be used in a GPLII program. Typical applications 
include error reporting and on-line tutorials. 
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ERASEBOX EXTERNAL MONADIC PROCEDURE 

Syntax: 

ERASEBOX "CORNER"; lowerjeft; upper_right; corner_radius; oversize(CR) 

or 

ERASEBOX "CENTER"; center; width height; cor ner_radius; oversize(CR) 

Function: 

This command erases a bright white, temporary box from the graphics CRT. The box 
is assumed to have been drawn previously by DRAWBOX, using the identical 
command arguments. ERASEBOX operates in a manner identical to DRAWBOX, 
except that it erases instead of draws. ERASEBOX does not erase graphics 
representing elements stored in the GDSII database, and does not delete data from 
the database. 

A temporary, bright white box can also be erased by REMOVE or REDRAW, but 
ERASEBOX has the advantage of erasing only the box specified by the given 
arguments. 

ERASEBOX would generally be used in a GPLII program. Typical applications include 
error reporting and on-line tutorials. 

See DRAWBOX for further information on ERASEBOX arguments. 
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ERASECROSS EXTERNAL MONADIC PROCEDURE 

Syntax: 

ERASECROSS (CE1)(CE2) . . . (CE/CR) 

Function: 

At each CE on the command line, ERASECROSS erases a bright white cross (X) from 
the graphics CRT. Underlying graphics (e.g., Node elements) are not affected if they 
represent data stored in the GDSII database. The size of the erased cross is set by 
MARKSIZE. 

ERASECROSS is normally used for selective erasure of crosses drawn by the 
DRAW CROSS command. 



1-23 



ERASEPROMPT EXTERNAL MONADIC PROCEDURE 

Syntax: 



or 
or 
or 



ERASEPROMPT "prompt"(CR) 

ERASEPROMPT "prompt"; "R"(CR) 

ERASEPROMPT "prompt"; "L"(CR) 

ERASEPROMPT "prompt"; "B'^CR) 

Function: 

ERASEPROMPT is the prompt -erasure counterpart of DRAWPROMPT. It operates in 
a manner identical to DRAWPROMPT, except that it erases rather than draws. 

See the DRAWPROMPT helpfile for further information. 
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ERASESEGS EXTERNAL MONADIC PROCEDURE 

Syntax: 

ERASESEGS (CE1)(CE2) . . . (CE/CR) 

Function: 

This command erases bright white line segments, previously drawn by DRAWSEGS, 
from the graphics CRT. If only a single coordinate is specified, a diamond is erased. 
No element is deleted from the GDSII database. ERASESEGS provides more selective 
erasure than either REMOVE or REDRAW, in the sense that it erases only the 
segments connecting the specified coordinates, and does not affect other temporary 
bright white graphics that may be on the screen. 

ERASESEGS operates exactly the same as DRAWSEGS, except that it has only a 
monadic form, and erases rather than draws lines. 

ERASESEGS is normally used in GPLII programs, when polygon highlighting or other 
temporary line graphics are required. 
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ERASE TEXT 



EXTERNAL MONADIC PROCEDURE 



Syntax: 

ERASETEXT text_string; justification; orientation; size; origins; "BOX"(CR) 

Function: 

This command erases a temporary bright white text string, previously drawn by 
DRAWTEXT, from the graphics CRT. It operates exactly the same as DRAWTEXT, 
except that it erases instead of draws. 

No database elements are deleted. Unlike REMOVE or REDRAW, ERASETEXT 
erases selectively; temporary graphics other than the specified text string are not 
affected. 

ERASETEXT is normally used in GPLII programs, in applications where temporary 
text is required. Typical application are graphical error reporting, prompting on the 
graphics CRT, and visual display of text stored in User Properties. 

A preset text font is used. The following characters may be erased: 

(1 ) uppercase letters (A through Z); 

(2) numerals (0 through 9); 

(3) dollar sign, period, slash, hyphen, underbar, and colon, question mark, 
comma, apostrophe, exclamation point, and left/right parentfieses. 

The text string may also contain lowercase characters, but these will be translated to 
uppercase before erasure. Any non-dis playable character is replaced by a space. The 
text string may contain up to 1000 dnaracters. The user can enter multiline text 
string. Lines are terminated by a percent diaracter, which is not displayed on the 
graphics CRT, but just serves as a line separator in the text_string argument. 

The first five arguments must be supplied. The sixth argument is optional. The 
arguments are as follows: 



text_string 
justification 



The string of characters to be erased. 

Justification of text relative to each origin. 
Acceptable values are: 



II II 

"L" 
"C" 



Left justification 

Left justification 

Center justification 
"R" Right justification 
"DC" Dead -center justification 

For left, center, or right justification, text position is 
slightly offset from tiie actual origin, so that if a 
diamond were placed at the origin, text would not 
overlap the diamond. Dead-center justification centers 
the text precisely over tiie origin. 
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orientation Specifies one of three directions for text: 



11 II 


Horizontal 


"H" 


Horizontal 


"U" 


Upward 


"D" 


Downward 



size Numerical argument specifying text size as a fraction 

of the width of the working area on the screen. (The 
"corner_radius" and "oversize" arguments of DRAWBOX 
are specified in a similar way.) For reference, a value 
of .01 sets the character height to 0.0155 of the 
working area width. If size=" ", a default value of ,007 
is used. 

origins A vector of CEs. Text string is displayed at each origin 

supplied. Maximum of 20 origins is allowed. 

"BOX" An optional argument, if present, causes a bright white 

box to be drawn around the text. The box has rounded 
corners, and is oversized relative to the text extents. 

Examples: 

? DRAWTEXT "THIS IS A%TEXT STRING!"; "DC"; "H"; 0.01; 10,10; "BOX" 

Draws the two lines of the text string "THIS IS A TEXT STRINGI" horizontally on the 
graphics CRT, dead-centered at 10, 10. The first line is "THIS IS A", the second line 
is "TEXT STRINGI". The character height is 0.155 of the working area width on the 
screen. The origin is just between the two lines of text. The box is drawn around the 
text. 

Program example: 

For a pM-ogram example please refer to the GPLII program, IDNODEPROP.GS. This 
program may be found with the command PROPVALUE in this section. 
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GEDINTEGER EXTERNAL NILADIC FUNCTION 

Niladic Syntax: 

var := GEDINTEGER(CR) 

Function: 

Assigns the value of property number 126 in the current Itenn to the variable as a real 
integer. Any alprfn an urn erics in the value will be represented by zeros. 

Returns a null if the Item has no value for property number 126. 

GEDSTRING returns the value of property number 127. 

Program Information: 

TYPEOF = Integer or Null 

SIZE = 1 (0 if null) 

LENGTH = 1 

SHAPE = 1 (0 if null) 

Example: 

? PROP126 := GEDINTEGER(CR) 

? 

Assigns the value of property number 126 to PROPi26. 
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GEDPLEX EXTERNAL NILADIC FUNCTION 

Niladic Syntax: 

var := GEDPLEX(CR) 
Function: 

Assigns the plex number in the current Item to the variable as an Integer2. 

Returns a null if the element in the Item has no plex number. 

Program Information: 

TYPEOF = Integer2 or Null 
SIZE = 1 (0 if null) 

LENGTH = 1 
SHAPE = 1 (0 if null) 

Example: 

? GPX := GEDPLEX(CR) 
7 

Assigns the current plex number to GPX. 
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GEDSTRING EXTERNAL NILADIC FUNCTION 

Niladic Syntax: 

var := GEDSTRINCKCR) 

Function: 

Assigns the value of property number 127 in the current Item to the variable as a 
character string. 

Returns a null if the Item has no value for property number 127. 

GEDINTEGER returns the value of property number 126. 

Program Information: 

TYPEOF = Char or Null 

SIZE = n Char (0 if Null) 

LENGTH = 1 

SHAPE =n Char (0 if Null) 

Example: 

? PROP127 := GEDSTRING(CR) 
7 

Assigns the value of property number 127 to PROP127. 



GPLDRAW EXTERNAL NILADIC, MONADIC PROCEDURE 

Syntax: 

? GPLDRAW (CR) 

Color (WHITE): color (CR) 

Line Type (SOLID): line type (CR) 

Ceisy, 

Ce(s): 

• 

Ce(s>. (CR) 

or 

? GPLIIDRAW "color" ; "line type" ; coordinate array or vector (CR) 

Function: 

This command allows the user to draw any shape in bright white lines on the CRT. 
The data is temporary and may be removed with the command REDRAW. The 
command REMOVE does not remove the graphics. The temporary lines will be 
superimposed over other graphic data. 

This command may be used both niladically and monadically. The arguments include 
the color (i.e., RED, GREEN, CYAN) in which to draw, the line type (i.e., SOLID, 
BROKEN, DASHED) in which the graphics will appear, and the coordinates of the 
graphics to be entered. The default color is WHITE and the default line type is 
SOLID. 

The coordinates may be either a vector or a matrix. 

Example: 

? GPLIIDRAW 
Color (WHITE): 
Line type (SOLID): 
Ce(s): -9. 20. 
Ce(s): 0. 21. 
CeisY. 0. 31. 
Ceisy. -7. 35. 
Ce(s): -11. 39.5 
Ce(s>. -15.531.5 
Ce(s): -12.5 22.5 
Ce(s): 
7 

?GPLDRAW"WHITE"; "SOLID"; 10 10 10 10 
7 

CRDS:=5 2 RESHAPE 10 10 10 10 
? CRDS 



1-31 



0. 


0. 


10. 


0. 


10. 


10. 


0. 


10. 


0. 


0. 



? GPLDRAW "WHITE"; "BROKEN"; CRDS 

9 

? GPLDRAW " "; " "; CRDS 

In this last example, since the first two arguments were null (" ") the 
command will create graphics in WHITE and SOLID. 

Program example: 



NILAOIC PROCEDURE AREA 

EXTERNAL CRD; CRDLIST; KEYNUM; INFO; BOAREA; PAREA 

DO 

CRD: =EXPINPUT"PLEASE INDICATE BOUNDARY OR PATH: 
IF CRD <> "" THEN 
KEYNUM: =CEKEY CRD 
IF KEYNUM <> "•' THEN 
INFO:=GETEL KEYNUM 
IF ( INFOCn)Cn = 3 THEN 
CRDLIST:=INF0C6a 

GPLDRAWWH I TE" ; "SOL ID"; CRDL I ST 
BOAREA: =BOUNDARYAREA CRDLIST 
"THE BOUNDARY AREA IS: ";BDAREA 
ELIF (INF0C13)Cn = 4 THEN 
IF INF0C43 <> THEN 

GPLDRAW"WHITE"; "SOLID"; ( PATHBOUNDARY KEYNUM) 
PAREA :=80UNDARYAREA (PATHBOUNDARY KEYNUM) 
"THE PATH AREA IS: "; PAREA 
ELSE 

"PATH HAS NO WIDTH .... AREA" 
END IF 
END IF 
ENDIF 
ENDIF 
UNTI L CRD = "" 
ENDDO 

ENDSUB 
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INDICESOF EXTERNAL DYADIC FUNCTION 



Syntax: 

var := Array INDICESOF Array (CR) 

or 

var := Vector IN D ICES OF^ Vector (CR) 

or 

var := (nX2 array) INDICESOF Array (CR) 

or 

var := (nX2 array) INDICESOF (nX2 array) (CR) 

Function: 

INDICESOF finds all occurrences of elements in the right argument which exist in the 
left argument. It assigns the placement of each occurrence to the variable. This 
function is particularly useful for finding more than one placement of an X or Y 
coordinate. It is also very useful to find a particular world within a text string. 

The function is similar to the INDEXOF GPLII operator which finds only one 
occurrence of the right argument in the left argument. INDEXOF will also not find a 
specified word within a text string, but the occurrence of each letter within the 
particular word. 

Example: 

DYADIC FUNCTION RESULT :=SUB LOCATE WHOLE 
LOCAL RESULT; SUB; WHOLE 

RESULT: =SUB INDICESOF WHOLE 
IF RESULT <> "" THEN 

"LOCATED IN POS 1ST ION( S ) : ",<CFORMAT RESULT) 
ELSE 

"NOT LOCATED" 
ENDIF 

ENDSUB 

? LOAD"LOCATE" 

? ANS:=23 24 15 -1 23 18 34 LOCATE 23 

LOCATED IN POSITION(S): 1 5 

7 

? ANS:="THIS IS A TEST STRING OF TEXT" LOCATE "TEST" 
LOCATED IN POSITION(S): 11 
? ANS 
11 

7 
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? VAR1:="THIS IS A TEXT STRING" 

? VAR2:="IS" 
7 

? ANS:=VAR1 LOCATE VAR2 
LOCATED IN POSITION(S): 3 6 
? ANS 
36 

7 



? GET 


? CRDS: 


= COORDS 


? CRDS 




0. 


0. 


10. 


0. 


10. 


10. 


0. 


10. 


0. 


0. 


7 




? NUM:= 


CRDS LOCATE 


LOCATED IN POSITION(S): 1 


? NUM 




1 9 




7 




TYPEOF = Integer 


LENGTHr 1 




RANK = 1 




SIZE = Ec 


lual to the number of 



If none are found = 0. 
SHAPE = If a searched item is found, the shape = SIZE. If no 
searched items are found, SHAPE = 0. 
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INSIDEBOUNDARY EXTERNAL DYADIC FUNCTION 

Syntax: 

Var := (CE) INSIDEBOUNDARY (n by 2 array) (CR) 
or 

Var := (CE) (CE) (CE) . . . (CE) INSIDEBOUNDARY (n by 2 array) (CR) 
Guidelines; 

1. An array of coordinates n by 2 must be assigned as the right argument. 

2. The entered coordinates for the right argument must form a legal boundary 
shape, with 200 or less vertices. 

Function: 

Assigns the variable a value of 1 if the coordinates(s) specified in the left argument 
are within the inside area of the boundary specified by the right argument. Assigns 
the variable with a value of if the coordinate (s) specified in the left argument are 
outside of the boundary specified by the right argument. Assigns 1he variable with a 
value of -1 if the coordinate(s) specified in the left argument are exactly on a line 
segment of a Boundary. 

Program Information: 

TYPEOF = Integer 

SIZE = Size of left argument divided by 2 

LENGTH = 1 

SHAPE = Same as SIZE 

Example: 

? 22. 27. INSIDEBOUNDARY AA 



7 

or 

? 11. 28. 9. 22. 15. 18. INSIDEBOUNDARY AA 

1 1 
7 

Where AA is an n by 2 array. 
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Program example: 



DYADIC FUNCTION RESULT: =CRD INSIDE CRDLIST 
LOCAL RESULT; CRD; CRDLIST 

RESULT: =CRD INS IDEBOUNDARY CRDLIST 
IF RESULT = 1 THEN 

"COORDINATE INSIDE BOUNDARY" 
ELSE 

"COORDINATE <BRON>NOT <BROFF> INSIDE BOUNDARY" 
END IF 

ENDSUB 

? LOAD"INSIDE" 
7 

? GET 0. 44. 

? ITEM 

You Are Editing Item //9 

It is a Boundary (9 Points So Far) 

layer 35, Datatype 1 

You Are In Orthint Mode (Horizontal-First) 

Number : 6 

Value : VDD 

? CRDS:=GEDCOORDS 

7 

? CRDS 

33. 44. 

0.^44. 

0. 50, 

liG, 50. 

46. 44. 

39. 44. 

39. 33. 

33. 33. 

33. 44. 
7 

? PNT:= 15.5 47. INSIDE CRDS 
COORDINATE INSIDE BOUNDARY 
? PNT 
1 
7 

? PNT:= 3. 47. 

? ANS:=PNT INSIDE CRDLIST 

COORDINATE INSIDE BOUNDARY 

7 

? PNT:= »5. 47. 

? ANS:=PNT INSIDE CRDLIST 

COORDINATE NOT INSIDE BOUNDARY 

7 

This next program will locate and identify any "contacts" which are not enclosed by 
"metal". 
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NILAOIC PROCEDURE ENCLOSEDBY 

EXTERNAL MONADIC PROCEDURE PLEXIT 

LOCAL RESULT; CONTACT; METAL 

EXTERNAL N, CRDLIST; INFO; KEYNUM; KEYS 

EXTE RNAL PLEXHEAD; ANS; KEY_NUMS; CONT_CRDS; MET^INFO; MET_CROS 

EXTERNAL X; CHECK; CONT_L AY; LAY 

20 RESHAPE "<CR>" 

VIEW 

PLEXMOOE 

LOAD "PLEXIT" 

KEY_NUMS: ="" 

CONT_LAY:=EXPINPUT"PLEASE ENTER CONTACT LAYER NUMBER: 

BEG! N: 

IF CONT_LAY <> "•• THEN 

KEYS:=MSELECT 3; CONT_LAY 

IF KEYS <> ••" THEN 

IF (SIZE KEYS) >= 1 THEN 

N:=0 

DO 

N:=N + 1 

KEYNUM: =KEYSCN3 

INFO:=GETEL KEYNUM 

IF (SIZE INF0C13) = 4 THEN 

PLEXHEAD : = ( I NFO C 1 3 ) C 4 ] 

ELSE 
II II 

"(((ERROR))) CONTACT IS NOT PLEXED. " 

ANS:=TEXTINPUT"DO YOU WISH TO ESTABLISH A PLEX (Y) 
IF (ANS = "Y") OR (ANS = "") THEN 

PLEXIT KEYNUM 

GOTO BEGIN 
ELSE 

GOTO FINI 
END IF 
END IF 

C0NT_CRDS:=INF0C63 

MET_INFO:=GETEL PLEXHEAD 

METj:RDS: =MET_INFOC6 3 

CHECK: =CONT_CRDS INSIDEBOUNDARY MET_CRDS 

IF (0 IN CHECK) OR (-1 IN CHECK) THEN 

KEY_NUMS : =KEY_NUMS , KEYNUM 
END IF 



UNTIL N = (SIZE KEYS) 
ENDDO 

ELSE 
"NO CONTACTS FOUND IN THIS STRUCTURE" 
EN OIF 
END IF 

END I F 

IF KEY_NUMS <> "" THEN 

IDCLEAR 

N: =0 

DO 

N: =N + 1 

ID ADD KEYJMUMSCN3 
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UNTIL N = <SI2E KEY_NUMS) 

ENDDO 
10 RESHAPE ••<CR>" 

"ERROR CONTACTS FOUND ... PLEASE SEE DISPLAY" 
"THEY HAVE BEEN IDENTIFIED ... USE IDCLEAR TO CLEAR" 
SETVIEW (DATAEKTENT IDKEYS) 
END IF 

PLEXMODE 1 

FINI : 
ENDSUB 



This next program is a subroutine that is used by the GPLII program ENCLOSEDBY. If 
ENCLOSEDBY finds "contacts" that have not been plexed to the surrounding "metal", it 
prompts the user to indicate the proper "metal" boundary for enclosure. 

MONADIC PROCEDURE PLEXIT KEY_NUM 

LOCAL KEY_NUM 

EXTERNAL MET__LAY: ANS; MET_KEY; WIN; NEW_WIN; MET_CRD; SL 

EXTERNAL CONT LAY 



SL:= SLAYER 

MET_LAY::EXPINPUT"PLEASE ENTER METAL LAYER NUMBER" 

IF MET_LAY <> "" THEN 

SLAYER <MET_LAY, CONT_LAY) 
END IF 

ID KEY^NUM 

WIN; =<DATAEXTENT IDKEYS) 

SETV lEW WIN 

ZOOM .5 

FIND_METAL: 

MET_CRD:=EXPINPUT"PLEASE INDICATE METAL TO PLEX TO < CE ) 
IF MET_CRD <> "" THEN 
MET_KEY: =CEKEY MET_CRD 
GET MET_KEY 

ANS: =TEXT INPUT" IS THIS THE CORRECT METAL <Y>: 
IF (ANS = "Y") OR (ANS = "") THEN 
PLEX MET_KEY 
PUT 

IDCLEAR 
GET KEYJNIUM 
PLEX MET_KEY 
PUT 
ELSE 
PUT 

GOTO FIhD_METAL 
ENDIF 
END I F 
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SLAYER SL 

IDCLEAR 

VIEW 

ENDSUB 
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INTERRUPTMODE EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION 

Syntax: 

INTERRUPTMODE 1 or 

Function: 

This GPLII command toggles the interrupt capability for the GDSII workstation. 
INTERRUPTMODE will disable the interrupt key. INTERRUPTMODE 1 will enable 
the interrupt key. This command may only be used within a GPLII program. 

Example: 

NILADIC PROCEDURE PASSWORD 
LOCAL PASS 

INTERRUPTMODE 

DO 

PASS : =TEXTINPUT" ENTER PASSWORD: " 

UNTIL PASS = "SOME PASSWORD" 

ENDDO 

INTERRUPTMODE 1 

ENDSUB 



In this example, the user is prompted to enter a password. The interrupt capability has 
been disabled to disallow the user to interrupt the pro-am until the proper password has 
been entered. 
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KEYMARK EXTERNAL MONADIC PROCEDURE 



Syntax: 



KEYMARK key number (CR) 

or 

KEYMARK vector of key numbers (CR) 



Function: 



Puts a mark at the first point or origin specified key number. The mark may be 
removed using the REMOVE command or redrawing the screen. 



Example: 



NILAOIC PROCEDURE FIRSTPNT 
EXTERNAL CRD; KEY_NUM 

CRD: =EXPINPUT"PLEASE INDICATE ELEMENT: 
IF CRD <> '•" THEN 

KE Y_NUM: =CEKEY CRD 

KE YMARK KEY_NUM 
ENDI F 

ENDSUB 



This program will mark the element that is found closest to the coordinate entered. 

NILADIC PROCEDURE WINMARK 
EXTERNAL KEY_NUMS; LL_CRD; UR_CRD 

LL_CRD: =EXPINPUT"PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: 
UR_CRD: =EXP1NPUT"PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 

KEY__NUMS: =MSELECT ""; •'"; ""; ""; ""; LL_CRD, UR_CRD 
IF KEY__NUMS <> "•' THEN 

KEYMARK KEY__NUMS 
ENDI F 

ENDSUB 

This program will find all the elements that are viewable and selectable within the 
specified window and mark either their first point or their origin. 
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LINEINTERSECT EXTERNAL MONADIC FUNCTION 

Syntax: 

var := LINEINTERSECT CEl CE2 CE3 CE^ . . . CEn CEm (CR) 

Where n and m are X and Y coordinates, respectively. 

or 

var := LINEINTERSECT Matrix], Matrix2, Matrix3, Matrix^ 

Function: 

This function returns a list of one vector and one scalar or one matrix and one scalar, 
stating whether or not two or more line segments intersect. If they intersect, it also 
states: 

1) The point of intersection 

2) Whether or not the point(s) of intersection occur on the line segments themselves 

The point of intersection is returned even if that point does not occur on the line 
segments themselves. Intersection points for more than one f)air of line segments 
may be determined concurrently. In this case, matrices built from a list of line 
segment coordinates may be used as LINEINTERSECT arguments. These matrices 
may be created using either RESHAPE or matrix concatenation. Four nX2 matrices 
or one nX8 matrix may be used, where n is an integer from 1 to 32767, representing 
the number of rows in the matrix. 

If the lines are parallel, i.e., they do not intersect, the "intersection coordinate" 
listed appears as 0, but has no real value. 

The scalar returned by LINEINTERSECT is a flag, (i, -1 or 0), stating whether or not 
the two line segments intersect, or would intersect if extended. The flag is 1 if the 
line segments intersect at a point common to both of them, (as in figures (1) and (2)0, 
and -1 if the lines WOULD intersect if extended (figure 3). The flag is if the line 
segments are parallel (figure ^). 

\ / / / \ / / 

\ / / / \ / / 

\/ /\ / \ / / 

/\ / \ / \ / / 

/\ / \ / \ / / 

(1) <2> (3) (4) 

Program information: 

TYPEOF = LIST 
SIZE = null 
LENGTH =2 
SHAPE =nuil 
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Example: 



? LINEINTERSECT 2 3-5 104 32 32 10 59 (CR) 
-2.9857353664535 74.9379388588294 -1 



Program example: 

; PRO GRAM NAME: AUTODONUT 

:DATE: 2/7/85 

'.CREATED BY. ERIC ANDERSON 

'.RELEASE: 4.1.1 

: REV I SI ON: A 

1 SUB ROUT I NES: OPENSTRUCT 

: PUR POSE: TO CREATE DONUT W/O USING REDO 

NILADIC PROCEDURE AUTODONUT 

EXTERNAL YCRS, XCRS; INT 

EXTERNAL CRD; KEY_NUM; INFO, CRDS; PTS 

EXTERNAL LL; UR; LR; UL; RECT 

EXTERNAL RECT_SEG; NEW_CRDS; N; BD_SEG; CROSS 

EXTERNAL CNT; BEG_CRDS; END_CRDS 

EXTERNAL PNTS; ANS; PNT; LAY; DT 

: EXTERNAL NILADIC PROCEDURE OPENSTRUCT 

•.LOAD"OPENSTRUCT" 
: OPENSTRUCT 

II u 

DO 

END_CRDS:="" 

BEG_CRDS 

NEW_CRDS 

CRD: =EXPINPUT"INDICATE BOUNDRY W/CE: 

IF CRD <> •"• THEN 

KEY_NUM:= CEKEY CRD 

INFO := GETEL KEY_NUM 

CRDS : = INFO C6D 

PTS: = < SHAPE CRDS > C13 - 1 

NLOOP: 

LL:= EXPINPUT "LOWER LEFT: 

UR:= EXPINPUT "UPPER RIGHT: 

DRAW BOX "CORNER"; LL; UR 

DRAW PROMPT "OK? (Y>:";"L" 

ANS: =TEXTINPUT"RECTANGLE OKAY? (Y): " 

IF (ANS <> ""> AND (ANS <> "Y") THEN 

ERASEPROMPT"OK? (Y>:";"L" 

ERASEBOX"CORNER";LL;UR 

GOTO NLOOP 

END I F 
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ERAS EPROMPT"OK? ( Y > : " ; "L' 
LR:= < UR Cn, LL C23 > 
UL:= < LL Cn, UR C23 ) 
RECT_SEG:= < LL,LR ) 
RECT :=LL,UL,UR,LR 



NEW_CRDS.= "" 

N := 

DO 

N;= N+1 

BD_SEG:= ( CRDS CN; 1, CRDS tKN+1); 3) 

CROSS: = LINEINTERSECT BD_SEG, RECT_SEG 

INT: =, <CR0SSC13) 

ANS: =, <CR0SSC23> 

UNTI L ANS = «1 

ENDDO 

IF (ANS = «1> AND (N > 1) THEN 

PNT: =N, 2 

BEG_CRDS:=, <PNT TAKE CRDS), INT 

IF ( LLCn < INTCn) THEN 
NEW_CRDS: =LL, UL,UR,LR, INT 
PNTS: = -<PTS - <N - 1 > ), 2 
END_CRDS:=, (PNTS TAKE CRDS) 
NE W_CRDS: =8EG_CRDS, NEW_CRDS, END_CRDS 

ELIF (LLCn > INTCn) THEN 
NEW_CRDS: :4-R,UR,UL,LL, INT 
PNTS: = -<PTS - <N - i ) ),2 
END_CRDS: =, (PNTS TAKE CRDS) 
NE W_CRDS : =BEG_CRDS , NEW_CRDS , END_CRDS 

END IF 

END IF 



DATA DELETE" V ; KEY_NUM 

LAY: =INF0C2] 

DT: = INFOC33 

BOUNDARY 

LAYER LAY 

DATATYPE DT 

ORTH INT 

CE NEW_CRDS 

PUT 

END I F 

UNTI L (CRD - »•"> 
ENDDO 

ENDSUB 
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MASKFREE EXTERNAL MONADIC PROCEDURE 

Syntax: 

MASKFREE maskfile (CR) 

or 

MASKFREE maskfile; maskfile; . . . (CR) 
Guidelines: 

1. This command should be issued as soon as a mask file is no longer needed in a 
GPLII DRC program. 

2. Because of disk space considerations, a GPLII DRC program should use the fewest 
mask files possible at one time. 

Function: 

Deletes the specified mask file(s) from the disk. 
Restrictions: 

MASKFREE can only be executed in the background as part of a GPLII DRC program. 

Example: 

NILADIC PROCEDURE DRCTEST 

MASK FILE UN_LAY1 

MASK FILE NBWUN^LAYl 

MASK FILE UN_LAY2 

MASK FILE NEWUN_LAY2 

MASK FILE UN_LAY3 

MASK FILE NEWUN_LAY3 

UN_LAY1 .=INPUTMASK 1;<I0TA 63) 

NEWUN_LAY1:=UNDERSIZE .75;UN_LAY1 

OUTPUTMASK hEWUN_LAYl ; 1 1 ; "JOBLOG"; 0;200 

MASKFREE UNJ.AY1 
MASKFREE NEWUN_LAY1 

UN_LAY2: =INPUTMASK 2; < IOTA 63 ) 
NEWU N_LAY2 : =UNDERS 1 2E 1 . ; UN_L AY2 
OUTPUTMASK hEWUN_LAY2; 12; "JOBLOG"; 0;200 

I 
I 

MASKFREE UNJ.AY2 

MASKFREE NEWUN_LAY2 
< 

UN_LAY3:=INPUTMASK 3; < IOTA 63 ) 
NEWUN_LAY3:=ONDERSIZE . 375; UN_LAY3 
OUTPUTMASK ^EWUN_LAY3; 13; " JOBLOG"; 0;200 
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MASK FREE UN_LAY3 
MASK FREE NEWUN LAY3 



ENDSUB 
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MASKRESTORE EXTERNAL MONADIC FUNCTION 

Monadic Syntax: 

newmaskfile := MASKRESTORE "filename" (CR) 

Function: 

Assigns the specified CDOS disk file name (created by MASKSAVE) to the new mask 
file. MASKRESTORE can only be used once with a given disk file. 

MASKRESTORE can only be executed in the background as part of a GPLII DRC 
program. 

Program Information: 

TYPEOFF= Mask file 
SIZE = Variable 
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MASKSAVE EXTERNAL MONADIC PROCEDURE 

Syntax: 

MASKSAVE maskfile; "filename'<CR) 
Guidelines: 

1. The CDOS file name can contain a maximum of 10 characters plus a two 
diaracter extension. 

2. MASKSAVE is useful for check pointing and limiting the amount of time required 
by individual DRC runs. 

Function: 

Saves the specified mask file for another DRC run by creating a backup in a separate 
CDOS disk file with the file name specified. MASKSAVE does not delete the mask 
file from the GPLII DRC program. 

See MASKFREE and MASKRESTORE. 

Restrictions: 

MASKSAVE can only be executed in the background as part of a GPLII DRC program. 
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MINMAX EXTERNAL MONADIC FUNCTION 

Syntax: 

var := MINMAX nl n2 n3 n4 n5 . . . nn (CR) 

Minimum Maximum 

7 

Where n is a scalar, vector or matrix 

Function: 

This GPLII function returns the minimum and maximum values present for a given set 
of scalars, vectors or matrices. 

Example: 



? MINMAX -28 29.3-108 72 3682 21 (CR) 
-108 3682 

7 
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OUTPUTCHANGE EXTERNAL MONADIC PROCEDURE 

Syntax: 

OUTPUTCHANGE library; structure(CR) 
Guidelines: 

1. The designated library must exist. 

2. If the designated structure does not exist, the DRC program will create it. 

Function: 

Specifies the library and structure which will contain tiie results of the DRC run. 
OUTPUTCHANGE overrides the library and structure information previously 
specified with 30BCREATE or another OUTPUTCHANGE in the GPLII DRC program. 

OUTPUTCHANGE enables the results of different DRC commands in a single GPLII 
DRC program to be routed to different structures and/or libraries. 

Restrictions: 

OUTPUTCHANGE can only be executed in the background as part of a GPLII DRC 
program. 

Example: 

OUTPUTCHANGE IC5;IC5ERR <CR> 

CONTTACTAREA := CHECKAREA "LT"; 16; CONTACT<CR> 

OUTPUTCHANGE I C5; I C5PGDATA <CR> 

NEWG := OVERSIZE 5; GATE <CR> 

LESSP := UNDERSIZE 3; POLY <CR> 

OUTPUTMASK NEWG; <CR> 

OUTPUTMASK LESSP: 1 <CR> 



The first OUTPUTCHANGE command in the GPLII DRC program fragment specifies 
that the results of the CHECKAREA function should be placed in structure IC5ERR 
in library IC5. Then the second OUTPUTCHANGE command specifies that the 
results of the OVERSIZE and UNDERSIZE functions should be placed in structure 
IC5PGDATA, also in library IC5. 
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Program example: 



: PRO GRAM NAfC: ROUNDIT.GS 
iCREATED BY: CHRIS MARTIN 
.'DATE: 3-20-85 

:THIS PROGRAM IS A RECURSIVE DRC PROGRAM FOR ROUNDMASK 
NILADIC PROCEDURE ROUND I T 
MASK FILE OLD_MASK; RMASK 
LOCAL N; CELL_NAME; STRUCT_OUT 
EXTERNAL NN 



0PENLIB"GD5I1:CHRISLIB. DB" 
"5" 

CELL__NAME: =STRUCLIST'*-" lObtalning structure names 

N =0 

DO 

N =N + 1 

STRUCT_OUT: =CELL_NAMECN3 

OUTPUTCHANGE ''GDS I I : ERRCHR I S. DB" ; STRUCT_OUT JEnter output library 

:name inside quotes 
OUTPUTVIEW (,DATAEXTENT) ISet window to include all data 

LEVEL 
SKIND"BDPCPB" 
05TRUCT CELL_NAMECN] 

NN ; =0 

DO 

NN:=NN + 1 

OLDJiASK: =INPUTMASK NN, IOTA 63 

RMASK: =R0UNDMASK .005; OLD_MASK 

OUTPUTMASK RMASK; NN 

MASKFREE RMASK 

MASKFREE OLD_MASK 

UNTIL NN = 9 

ENDDO 
UNTIL N = (LENGTH CELL_NAME) 
ENDDO 

ENDSUB ; ROUND IT 
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OUTPUTVIEW EXTERNAL NILADIC, MONADIC PROCEDURE 

Syntax: 

OUTPUTVIEW (CE) (CE/CR) 

or 

OUTPUTVIEW (CR) 

Function: 

Defines a window in tiie structure from which INPUTMASK will extract data for the 
DRC run. If no coordinates are entered, a window enclosing all of the data in the 
open structure will be defined. 

Perhaps its most useful purpose is to describe the window for a foreground plot, using 
the lot option FGEXP. 

By entering OUTPUTVIEW monadically prior to JOBCREATE, the command causes 
the jobcreate to use the specified window as the default for the job. This allows the 
user to plot a section of the current view window rather than the entire view window. 

It is advised to VIEW the current open structure after using the OUTPUTVIEW 
command before editing continues. 

Example: 

7 

^ OUTPUTVIEW -5.5 -9. 36. 29. 

? JOBCREATE 

Job Type (XCLI): 0VERSA8242 

Prlo ri ty Class <B> : 

Jobname (0VERSA8242) : 

Plot Options (PLTR): FGEXP 

Exploder Output File: 

Plot Window 

CE 1 = ( -5. 5 , -9. ) 

CE2 = < 36. , 29. > 
Scale Factor (27350.): 2000 

Plot Size Will be 3.2677 By 2.9921 Inches 

Laye rs are 9 25 

Datatypes are 1 

Assign fillcodes to layers 

L9 < 1 ) : 

L25 (2): 
Run. Save, or Abort (RUN): 
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7 

? OUTPUTVIEW 
'^ AA : =VIEWWINDOW 
? ;AA 
-39 . 446 -30. 166 

40 . 446 33. 166 

r> 

? JOBCREATE 

Job Type (XCLI): 0VERSA8242 

Priority Class (B) : 

Jobname (0VERSA8242) : 

Plot Options (PLTR): FGEXP 

Exploder Output File: 

Plot Window 

CE 1 = ( -39. 446 , -30 166 ) 

CE2 = ( 40. 446 , 33. 166 > 
Seal e Factor (16410. >: 

Plot Size Will be 51.6153 By 40.9165 Inches 

Laye rs are 9 25 

Data types are 1 

Ass i gn f i 1 1 codes to layers 

L9 ( 1 ) : 

L25 (2): 
Run, Save, or Abort (RUN): 
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PATHBOUNDARY EXTERNAL MONADIC FUNCTION 



Syntax: 

AA := CEKEY (CE/CR) 
AA(CR) 

Path_Ke >[_Nu mber 
BB := PATHBOUNDARY AA (CR) 
BB (CR) 

Where AA is a path key number and BB (CR) returns an nX2 array containing the 
coordinates for the path boundary. 

Guidelines: 

1 ) GEDMODE must be OFF. 

2) The coordinates of the path centerline, whose path boundary coordinates are to 
be returned, must be stored in an n by 2 array. 

3) Path boundaries are dividied into separate matrices if they exceed more than 200 
coordinates each. 

Function: 

Given a set of coordinates, this function returns a coordinate matrix for a path 
boundary only, excluding the coordinates for the path centerline. (See GETEL to 
obtain path centerline coordinates.) 

If more than 200 coordinates for a path are used, multiple coordinate matrices of 200 
or less coordinates each are returned in a list. The LENGTH of PATHBOUNDARY is 
the number of matrices into which a path boundary is divided. This number must be 
used to calculate the area of a path boundary. 

PATHBOUNDARY may be used as an argument for the BOUNDARYAREA function, 
to calculate the area of a path element. (See BOUNDARYAREA.) 

Example: 

? AA := CEKEY 15. 25. 

? AA 

48367 

? BB := PATHBOUNDARY AA 

?BB 

X 

Where AA is an nX2 array of path centerline coordinates identified by a path key 
number, BB is the variable and x is the returned matrix or set of matrices assigned to 
BB. 

NOTE: For GPLII program example, see BOUNDARYAREA. 
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PROPVALUE EXTERNAL MLADIC, MONADIC FUNCTION 

Syntax: 

PROPVALUE n (CR) 

or 

PROPVALUE n; key number (CR) 

Function: 

Returns the Property Value of Property Attribute number 'n'. PROPVALUE n (CR) 
returns the value of Property Attribute n in the current Item. PROPVALUE n; key 
number (CR) returns the value of property Attribute n in the database element whose 
key number corresponds to "key number'. A null is returned if no Propo-ty Value is 
found. 

When PROPVALUE is used as a monadic function, the value of Property Value n is 
returned to the variable as a character vector. 

A Property Value may be assigned to a variable regardless of whether GEDMODE is 
on or off. A null vector is returned if no Property Value is found. 

Example: 

1. ? PROPVALUE 1(CR) 
R16 

9 

Property Attribute 1 in the current Item has a value of R16. 

2. ? PROPVALUE 1; 7583(CR) 
V16 

? 

The database element whose key number is 7583 contains the value R16 for 

Property Attribute 1. 

1. ? PROPVAL := PROPVALUE l(CR) 

9 

Assigns the value of property Attribute 1 in the current Item to PROPVAL. 

2. ? PROPVAL :=PROPVALUE 1; 7583(CR) 

9 

Assigns the value of Property Attribute 1 from the element whose database key 
number is 7583 to PROPVAL. 
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TYPEOF= Char or null 
LENGTH= 1 

SIZE = n Char (0 if null) 
SHAPE = n Char (0 if null) 

The following GPLII program will identify any user properties assigned to specified nodes. 
It will display the user property values both on the QTY and on the display screen. 

NILADIC PROCEDURE IDNODEPROP 

EXTERNAL LI BYNAME; VKINDS; SKINDS; VLAYERS; SLAYERS; VDTYPES 

EXTE RNAL NODE_LOCATION; CRD; LX; LY; UX; UY; LL_CRD; UR_CRD 

EXTERNAL NODE_KEYS; KEY_INFO; KEY_CRD; UNSTRING; U_INTEGER; NODE_KEY; NUM 

EXTE RNAL OPEN; STR_NAME; INFO; VNTYPES; WIN; OPTS 

EXTERNAL SZJslUM; N; X; PROPS; PROP 

EXTE RNAL SETV; TXT_CRD; XPT; YPT; SHOW_PROPS; SNTYPES; XX; SH_PROP 



: PRO GRAM NA^€: 


IDNODEPROP 


: CREATED BY: 


CHRIS MARTIN 


:date: 


NOVEMBER 27, 1984 


START PROGRAM: 




PLEXMODE 
II It 




II M 

SETV :=SETVIEW 




TXT CRD: =, SETV 




XPT 


=ABS (TXT 


CRDCn - TXT CROC33) 


YPT 


=AB5 (TXT^^ 


CRDC23 - TXT CRDC43) 


XPT 


=FLOOR (XPT M .04) 


YPT 


=FLOOR (YPT J* .04) 


TXT_CRO: =(TXT 


CRDCn + XPT), (TXT_CRDC:4 3 


SHOt 


4 PROPS: =•'" 





- YPT) 



LIB_NAME:=OPENLIB 

IF LIB_NAME <> "" THEN 

L I BYNAME : =L I BYNAME C i 1 
ENDI F 



IF L IB NAME = "" THEN 


DO 


L I B_ NAME : =TEXT I NPUT"L I BRAR Y 


UNTI L LIB NAME <> "" 


ENDDO 


OPENLIB LIB NAME 


ENDI F 


OPTS :=OPT IONS 


OPTI ONS"SV" 


VKINDS: rVKIND 


SKINDS:=SKIt€) 


VLAYERS 


=VLAYER 


SLAYERS 


=SLAYER 


VDTYPES 


-VDTYPE 


VNTYPES 


=VNTYPE 



NAME 
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SNTYPES: =SNTYPE 

SNTYPE 

VNTYPE 

VKIND 

SKIND 

VLAYER 

SLAYER 

VDTYPE 



|====r==== ====PROGRAM BEGIN: 



'•<BRON>PLEXMODE IS NOW OFF<BROFF> 

DO 

REMOVE 



•I II 
II II 



OPEN:=OSTRUCT 

IF OPEN = •'•• THEN 

DO 

STR_NAME:=TEXTINPUT"ENTER STRUCTURE NAME: 

UNTIL STR_NAME <> "" 

ENDDO 

OSTRUCT STR_NAME 
END IF 

DO 
II <i 

NODE_LOCATION:=EXPINPUT"INDICATE ELEMENT WITH CE 
ERA5ETEXT SHOW_PROPS; '•"; ""; ••";TXT_CRD 
IF NO0e_LOCATION <> "" THEN 
CRD:=NODE_LOCATION 
LX:=CRDCn - 2.5 
LY:=CRDC23 - 2.5 
LL_CRD:=LX,LY 

UX:=CRDi:n +2.5 
UY:=CRDC23 +2.5 
UR_CRD:=UX,UY 

DRAWBOX "CORNER"; LL_CRD;UR_CRD 

W I N: =LL_CRD , UR_CRD 
NODE_KE YS : =MSELECT 6 ; " " ; " " ; " " ; " " ; W I N 
IF NODE_KEYS <> "" THEN 

IF (SIZE NODE_KEYS> > A THEN 
X:=0 
DO 

X:=X + 1 

NODE_KEY: =N0DE_KEYSCX3 
KEY_INFO:=GETEL N0DE_KEY 
KEY^CRD: =KEY_INF0C63 

DRAWCROSS KEY CRD 



SHOW_PROPS. =" " 

XX: =8 

DO 

XX: =XX + 1 

5H PROP:=KEY INFOCXX: 
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IF 5H_PR0P <> "" THEN 

IF (TYPEOF SH__PROP) <> "CHAR'' THEN 
SH_PROP:=CFORMAT SH_PROP 

END IF 
SHOW_PROPS: =SHOW_PROPS, " ", SH_PROP 
ENDI F 

UNTI L XX = 11 
ENDDO 



DRAW TEXT SHOW_PROPS; "L"; •'"; "";TXT_CRD 



IF (LENGTH KEY_INFO) >= 11 THEN 

DRAWPROMPT"USER PROPERTY FOUND"; "B" 

IF <KEY_INFOC93> <> "" THEN 

DRAWPROMPT"(USTRING)"; "L" 

U_STRING:=PROPVALUE 127; NODE_KEY 
II II 

"<BRON><TAB>USTRING PROPERTY VALUE ===> ", UNSTRING, "<BROFF>" 
ENDIF "" 

IF (KEY_INF0C10]) <> •'" THEN 

DRAWPROMPT"(UINTEGER)"; "R" 

U_INTEGER:=PROPVALUE 126;N0DE_KEY 
•I II 

"<SRO\'><TAB>UINTEGER PROPERTY VALUE s==> •', U_INTEGEk, "<SROFF>" 
ENDIF 

IF (KEY_INFOCin) <> "" THEN 

DRAWPROMPT"(USER DEFINED)"; "R" 

NUM:={KEY_INFOEin) INDICESOF "C" 

SZ_NUM:=SI2E NUM 

IF (S2_NUM> > 1 THEN 

PROPS: ="<TAB>" 

N: =0 

DO 

N: =N + 1 

INFO:=KEY_INFOCin 

PROP.="<TAB>", INFOCIOTA ((NUMtNJ), <{NUMC(N + 1)D) - 1))3 

PROPS: =PROPS, "<CR>"; PROP 

UNTIL N = (SZ^NUM - 1) 

ENDDO " 

PROPS: =PROPS, "<CR><TAB>", (INFOCIOTA ((NUMC(N + 1)1),'' 

(SIZE 1NF0))3) 

ELSE 

PROPS: ="<TAB>", KEY_INF0C113 

ENDIF 
II II 

"<BRON><TAB>USER DEFINED PROPERTY AS FOLLOWS: <BROFF>" 
II II 

"<BRON>", PROPS, "<BROFF>" 
ELSE 

"NO USER PROPERTIES FOUND" 
ENDIF 



ELSE 

DRAWPROMPT"NO USER PROPERTIES FOUND"; "B" 
ENDIF 
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ERASECROSS KEY_CRD 

UNTIL X = (SIZE NODE_KEYS) 
ENDDO 

ELSE 

KEY_INFO:=GETEL NODE__KEYS 
KEY_CRD: =KEY_INFOC63 

DRAWCROSS KEYWORD 
SHOW__PROPS:=" " 
XX: = 8 
DO 

XX: = XX + 1 

IF (LENGTH KEY_INFO> >= XX THEN 
SH_P ROP : =KEY_I NFO C XX 3 
IF SH_PROP <> "" THEN 

IF ((TYPEOF SH_PROP) <> "CHAR") AND ( ( TYPEOF SH_PROP ) <> "NULL") THEN 
SH__PROP.=CFORMAT SH_PROP 

EN DIP 
SHOW_PROPS: =SHOW_PROPS, " ", SH_PROP 
END I F 
END I F 

UNTI L XX = 11 
ENDDO 
;=r==r ==== = = 2 == = r== ===r===r=== 

DRAW TEXT SH0W__PROPS; "L"; ""; "";TXT_CRD 

IF (LENGTH KEY_INFO) >= 11 THEN 
DRAWPROMPT"USER PROPERTY FOUND"; "B" 
IF (KEY__INFOC93) <> "" THEN 
DRAWPROMPT"(USTRING)"; "L" 
U_STRING: =PROPVALUE 127; NODE_KEYS 

n II 

"<BRON><TAB>USTRING PROPERTY VALUE ===> ", U_STRING, •'<BROFF>" 
END IF 

IF (KEY__INF0C103) <> "" THEN 
DRAWPROMPT"(UINTEGER>"; "R" 
U_I NTEGER : =PROPVALUE 1 26; NODE_KEYS 

n II 

"<BRON><TAB>UINTEGER PROPERTY VALUE ===> ",U INTEGER, "<BROFF>" 
END IF 

IF (KEY_INF0C113) <> "" THEN 

NUM:=(KEY_INFOCin) INDICESOF "C" 
SZ_NUM:=SIZE NUM 
IF (SZ_NUM) > 1 THEN 

PROPS: ="<TAB>" 

N: =0 

DO 

N:=N + 1 

INF0:=KEY_INF0C113 

PROP: ="<TAB>", INFOC IOTA ((NUMCN3), ((NUMC(N + 1)3) - 1))3 

PROPS: =PROPS, "<CR>", PROP 

UNTIL N = (SZ_NUM - 1) 

ENDDO 

PROPS: =PROPS, "<CR><TAB>", ( INFOC IOTA (<NUMC(N + 1)3),'^ 

(SIZE INF0))3) 
ELSE 
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PROPS: ="<TAB>",KEY_INF0C113 

ENDIF "" 

II II 

•'<BRON><TAB>USER DEFINED PROPERTY AS FOLLOWS: <BROFF> " 

II n 

•'<BRON>", PROPS, '•<BROFF>" 
ELSE 

"NO USER PROPERTIES FOUND" 
ENDIF 



ENDIF 



EhOIF 

ELSE 
II II 

"<BRON><BEL>NO ELEMENTS FOUND<BROFF>" 
DRAVJPROMPT "NO ELEMENTS FOUND"; "B" 
ENDIF 

ENDIF 
ERASEPROMPT"(USTRING)"; "L" 
ERASEPROMPT"(UINTEGER)"; "R" 
ERASEPROMPT"USER PROPERTY FOUND"; '*B" 
ERASEPROMPT"NO ELEMENTS FOUND"; "B" 
ERASEPROMPT"NO USER PROPERTIES FOUND"*; "B" 

UNTIL NODE^LOCATION = "" 
ENDDO 



REMOVE 

WINOPTIONS OPTS 
VKIND VKINDS 
SKIND SKINDS 
VLAYER VLAYERS 
SLAYER SLAYERS 
VDTYPE VDTYPES 
VNTYPE VNTYPES 
SNTYPE SNTYPES 
PLEXMODE 1 
ENDSUB 
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REVERSE EXTERNAL MONADIC FUNCTION 

Syntax: 

var := REVERSE array 

(array = vector or matrix) 

Function: ( 

\, 
This monadic function reverses the order of elements in a vector, or reverses the 
column order in an array. 

Example: 

? AA:= 12 3 4 5 6 7 8 
? REVERSE AA 

8. 7. 6. 5. 4. 3. 2. 1. 
? 

? BB:=2 3 RESHAPE (IOTA 6) 

?BB 

1 2 3 

4 5 6 
7 

? REVERSE BB 

32 1 

654 

7 
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ROTATE EXTERNAL DYADIC FUNCTION 

Syntax: 

var := n ROTATE array 

or 

var := n ROTATE [I] array 

Function: 

This is a dyadic function that, in the simple case, rotates n number of the elements of 
the argument. The index coordinate 1 indicates, for arrays only, the dimension to 
rotate within. 

Note: At this time, the format 'Vi ROTATE [I}' may only be used from within a GPLII 
program and NOT interactively. 

Example: 

?AA:=12345678 

? 3 ROTATE AA 

4. 5. 6. 7. 8, 1. 2. 3. 
7 

? //3 ROTATE AA 

6. 7. 8. 1. 2. 3. 4. 5. 
7 

? BB := 2 4 RESHAPE (IOTA 8) 

?BB 

12 3^ 

56 7 8 

7 

? 1 ROTATE BB 

2 3^1 

67 8 5 
7 

? //I ROTATE BB 

^12 3 

8567 

Program example: 

RESULT := 1 ROTATE [1] BB 

RESULT will equal 5 6 78 

123^ 
In this example, the rows, rather than the columns have been rotated. 
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ROUND EXTERNAL NILADIC, MONADIC FUNCTfON 

Syntax: 

Niladic 

ROUND (CR) 

Enter number to round: (whole number) 

Enter number of places past decimal pjoint: (integer) 

Monadic 

Var := ROUND C; D (CR) 
Z 

Where Z is the value of C rounded to the decimal place specified by D. 

Function: 

Assigns the variable the value of the first argument, rounded to the decimal place 
specified by the second argument. The second argument must be an n integer whose 
value, when 1, designates that the first argument is to be rounded off to one place to 
the right of the decimal point. When the second argument is 2, the variable is 
assigned a value rounded to two places to the right of the decimal point; when it is 3, 
the variable is assigned a value rounded to three places to the right of tiie decimal 
point, etc. 

Similarly, if the second argument is 0, the variable is assigned the value of the first 
argument, rounded to the one's decimal place. If the second argument is 01, the 
variable is assigned the value of the first argument rounded to the ten's decimal 
place, and if the value of the first argument is -2, the variable is assigned the value 
of the first argument, rounded to the hundred's decimal place, etc. 

See also DROUND. 

Restrictions: 

Integers should be limited to a size of 8 characters maximum. Numbers out of range 
may cause ROUND to return unpredictable results and incorrect responses. 

Program Information: 

TYPEOF = Real 

SIZE = Same as SIZE of first argument 

LENGTH = 1 

SHAPE = Same as SHAPE of first argument 
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Example: 



Niladic 



? ROUND 

Enter number to round: 7837.8395 

Enter number of places past decimal point: 

7837.8395 

9 



Monadic 



ROUND 7837.8395; -3 
7000 

7 
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SCALARINPUT EXTERNAL MONADIC FUNCTION 

Syntax: 

Var := SCALARINPUT "prompt'KCR) 
or 

Var := SCALARINPUT "pro^Pt"; default(CR) 
or 

Var := SCALARINPUT "prompt"; default; minimum (CR) 
or 

Var := SCALARINPUT "prompt"; default; minimum; maximum(CR) 

Function: 

Prompts the user to enter a scalar numeric value, accepts a response from the input 
keyboard, and assigns the reponse value to the variable. It also provides for optional 
default, minimum, and maximum response values. 

The first argument specifies the prompt to be displayed on the QTY. SCALARINPUT 
automatically appends a colon and two spaces to the prompt. 

The second argument specifies a default value for ti^e response. If the user inputs a 
null value, the default value will be assigned to the variable. The default will appear 
in the prompt enclosed in parenthesis. 

The third and fourth arguments specify minimum and maximum allowable values for 
the user's response. It is possible to specify a maximum witinout specifying a 
minimum by making the third argument null (" ") while supplying a numeric value for 
the fourth. 

Note: If a character value or any numeric values which are not within the specified range 
are input, the system will produce an error message andreprompt for input. 

Example: 

NILADIC PROCEDURE SCALTEST 
EXTERNAL NUM; NUMS; LAYS 

NUMS .=SCALARINPUT"PLEASE ENTER VIEW LAYER NUMBER" 

NUM: =SCALARINPUT"PLEASE ENTER SELECT LAYER NUMBER"; 63 

LAYS :=SCALARINPUT"PLEASE ENTER VIEW/SELECT DATATYPE"; 63; 0; 63 

VLAYER NUMS 
SLAYER NUM 
SDTYPE LAYS 
VDTYPE LAYS 



VIEW/SELECT DATATYPE: ";LAYS 
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"VIEW LAYER: ••;NUMS 
"SELECT LAYER: ";NUM 
ENDSUB 



? SCALIEST 

PLEASE ENTER VIEW LAYER NUMBER: 1 
PLEASE ENTER SELECT LAYER NUMBER (63. ): 44 
PLEASE ENTER VIEW/SELECT DATATYPE (63. ): 68 

Maximum Value is 63. 
PLEASE ENTER VIEW/SELECT DATATYE (63. ): -15 

Minimum Value is 0. 
PLESE ENTER VIEW/SELECT DATATYPE (63. ): 45 
VIEW LAYER: 1. 
SELECT LAYER: 44. 

9 



TYPEOF= REAL 
LENGTHr 1 
RANK = 1 
SIZE = 1 
SHAPE = 1 
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TAKE EXTERNAL DYADIC FUNCTION 

Syntax: 

var := vector TAKE array 

Function: 

This dyadic function returns as a result the number of values in "array" specified by 
"vector". The first argument size MUST equal the RANK of the second argument; 
i.e., if the second argument is an array, the first argument must be a SIZE 2 vector 
whose values do not exceed the corresponding dimensions of the second argument. 

Example: 

?AA:=12345678 
? 3 TAKE AA 
1. 2. 3. 

9 

? #3 TAKE AA 
6. 7. 8. 

7 

? BB := 3 ^ RESHAPE (IOTA 12) 

?BB 

12 3 4 

5 6 7 8 

9 10 11 12 

7 

? 1 2 TAKE BB 

1 2 

? 2 3 TAKE BB 

1 2 3 

5 67 

? 3 4 TAKE BB 

12 3 4 

5 6 7 8 

9 10 11 12 

? 1 4 TAKE BB 

1234 

? 3 1 TAKE BB 

1 

5 

9 

? //2 2 TAKE BB 

5 6 

9 10 

7 

Program Example: 

For a program example please refer to the GPLII program. 

AUTODONUT.GS located under the command LINEINTERSECT in this section. 
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TRANSPOSE EXTERNAL MONADIC FUNCTION 

Syntax: 

var := TRANSPOSE array 

Function: 

This monadic function reverses the index coordinates defining '^rray". This function 
has NO effect on data structures less than RANK 2. 

Example: 

? AA := 3 5 RESHAPE (IOTA 15) 

? AA 

12 3 4 5 

6 7 8 9 10 

n 12 13 14 15 
7 

? BB := TRANSPOSE AA 
?BB 

1 6 n 

2 7 12 

3 8 13 

4 9 14 

5 iO 15 

9 
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VECTOR COUNT EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION 

Syntax: 

VECTORCOUNT (CR) 
or 

VAR := VECTORCOUNT (CR) 

Function: 

Returns a number representing the number of vectors in the current display window. 
The count will also include the number of vectors found in the menu that is currently 
displayed. To receive an accurate account of the vectors in the display window, the 
command RSCREEN" " (CR) should be used. 

When VECTORCOUNT is used as a niladic function, the result assigned to the 
variable will be an INTEGER2 scalar. 

Example: 



7BSTRUCT "TEST" 

?RT 

Creating a Boundary 

Layer 32, Datatype 

(Horizontal-first) 

Ce 1: 

Ce2: 10 10 

Ce 1: (CR) 



? GET 
? COORDS 
ce[l] = (0.,0.) 
ce[2] = (10., 0.) 
ce[3] = (10., 10.) 
ceW = (0., 10.) 
ce[5] = (0., 0.) 

? PUT 

? VECTORCOUNT 

207^ vectors 

? RSCREEN "" 
? VECTORCOUNT 

^ vectors 
? VECS:=VECTORCOUNT 
? VECS 

? RSCREEN "CALMAMHD" 
? VECS:= VECTOR COUNT 
? VECS 
207^ 
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TYPE OF = 
LENGTH = 
SHAPE = 
SIZE 
RANK 



NTEGER2 
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SECTION II GPL I I DEBUGGER 
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GPLII DEBUGGER 



GDSII Release 5.1 introduces a set of GPLII enhancements which are intended to reduce 
the amount of time spent on program development and debugging. When an error is 
encountered in a GPLII program, error traceback information is displayed which includes 
the name of Ihe routine in control at the time of "ttie error and Ihe corresponding line 
number wilhin that routine. If the error occurs in a nested subroutine, the entire GPLII 
calling stack, including line numbers is displayed. To utilize the debugging capabilities, 
programs must be compiled (or recompiled) under Release 5.1 or later. 

Related procedures are as follows: 

ERRTRAP 

Implements an error trapping facility that allows the regaining of control after a 
system error has occurred. The syntax is similar to GOTO. For example: 

ERRTRAP label 

Label may be any GPLII label that is defined in the program. When an error occurs, 
the current routine is tested to see if it has an ERRTRAP that is active. If so, an 
error message is printed and the program restarts at the label specified. If there 
are not ERRTRAPs in the routine or any of its calling routines, the error is fatal, a 
traceback message is printed and execution is aborted. If the source file (.GS) of 
the program is currently in the GDSII text editor buffer, a window is displayed and 
the line with the error is made the current line for editing. An ERRTRAP 
statement remains in effect until another ERRTRAP is encountered wilhin the 
program or until the end of the routine. ERRTRAP without an argument removes 
the current ERRTRAP in force. 

BREAKPOINT 

Interrupts a program before the execution of any GPLII statement. After 
breakpoint is entered, a special command mode is entered. The word BREAKPOINT 
displays on the QTY and the symbol " ?" appears as the prompt. Breakpoint mode 
allows all local variables to be examined and altered for debugging. Execution may 
be continued from this point or redirected to another statement within the current 
routine. If the source file is currently in the GDSII text editor buffer, the line 
indicated as the breakpoint becomes the current line and the window is displayed. 

BREAKPOINT is called interactively and may be used in any one of three ways: 

Called niladically, BREAKPOINT prints out the name of the routine containing the 
breakpoint and the line number on which it appears. For example: 

? BREAKPOINT (CR) 
Breakpoint at Line 1 1 in TEST 

Called monadically, with two arguments, sets the breakpoint to the line specified. 
The first argument in tiie list is tiie program name and the second is tine line number 
that is to be defined as the breakpoint. 



in 



For example: 

? BREAKPOINT "TESP' ; 11 

Called monadically with as the argument, removes the current breakpoint. 

The following procedures may be invoked only from BREAKPOINT mode. 

PROCEED 

Continues execution of the program until a fatal error occurs, a breakpoint is 
encountered, or the program is completed. 



STEP 



Allows the user to step through the program line by line, causing a newbreakpoint 
after each executable statement in the program. If the current routine is in the 
GDSII text editor buffer, the breakpoint line becomes the current line and the text 
window is displayed. 



TOLINE 



Redirects execution to a specified line in the js^ogram and continues the program 
until a fatal error occurs, a breakpoint is encounterd, or the program is completed. 



Example: 



7 

? G 

File Name: WINMARK. GS 

1 NILADIC PROCEDURE WINMARK 

2 EXTERNAL KEY_NUMS; LL_CRD; UR_CRD 
3 

? T 
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1 NILAOIC PROCEDURE WINMARK 

2 EXTERNAL KEY_NUMS; LL_CRD; UR_CRD 
3 

4 LL_CRD.=EXPINPUT"PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: 

5 UR CRD: =EXP INPUT "PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 
6 

7 KEY_NUMS:=MSELECT "";"";"","",""; LL_CRD, UR_CRD 

8 IF KEY_NUMS <> "" THEN " 

9 KEYMARK KEY_NUMS 
10 ENDIF 

11 

12 ENOSUB 
? 

•^ WI NMARK 

PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: 3. 8. 

PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 24.5 25.5 

? BREAKPOINP'WINMARK"; 1 
? WI NMARK 

>>>BREAKPOINT At Line 1 in GPL II Routine WINMARK 

1 NILADIC PROCEDURE WINMARK 

2 EXTERNAL KEY_NUMS; LL_CRD; UR_CRD 
3 

>? STEP 

>>>BREAKPOINT At Line 4 in GPL II Routine WINMARK 

2 EXTERNAL KEY_NUMS; LL_CRD; UR CRD 

3 "" 

4 LL_CRD:=EXP INPUT "PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: 

5 UR_CRD:=EXP INPUT "PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 
6 

>? STEP 

PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: 2.5 8.5 

>>>BREAKPOINT At Line 5 in GPL II Routine WINMARK 
3 

4 LL_CRD:=EXP INPUT "PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: 

5 UR CRD:=EXPINPUT"PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 
6 

7 KEY_NUMS:=MSELECT •••«;•"•;••••;•'••;••••; lL CRD,UR_CRD 
>? STEP "" 

PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 24.5 28.5 

>>>BREAKPOINT At Line 7 in GPL 11 Routine WINMARK 

5 UR_CRD:=EXPINPUT"PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 
6 

7 KEY_NUMS:=MSELECT •'";"";"'•;"";""; LL_CRD, UR_CRD 

8 IF KEY__NUMS <> "" THEN "" "" 

9 KEYMARK KEY NUMS 
>? STEP 

>>>BREAKPOINr At Line 8 in GPL II Routine WINMARK 
6 

7 KEY_NUMS:=MSELECT "";"";"";"";""; LL_CRD, UR_CRD 

8 IF KEY_NUMS <> "" THEN "" *" 

9 KEYMARK KEY_NUMS 
10 ENDIF 

? BREAKPOINP'WINMARK"; 1 

>>>BREAKPOINT At Line 1 in GPL II Routine WINMARK 

1 NILADIC PROCEDURE WINMARK 

2 EXTERNAL KEY_NUMS; LL CRD; UR_CRO 
3 

>? TOLINE 4 

PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: 2. 5 9. 
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PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 34. 38. 

? BREAKPOINP'WINMARK"; 1 

? BREAKPOINT 

Break-point at Line 1 in WINMARK 

7 

? WI NMARK 

>>>BREAKPOINT At Line 1 in GPL 11 Routine WINMARK 

1 NILADIC PROCEDURE WINMARK 

2 EXTERNAL KEY_NUMS; LL_CRD; UR CRD 
3 

>? PROCEED 

PLEASE ENTER LOWER LEFT WINDOW COORD I ANTE: 1.5 7.5 

PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 44.5 35. 

7 

7 

? BREAKPOINT-WINMARK"; 5 

? BREAKPOINT 

Breakpoint at Line 5 In WINMARK 

? WI NMARK 

PLEASE ENTER LOWER LEFT WINDOW COORD I ANTE: 2. 5 9. 

>>>BREAKPOINT At Line 5 in GPL II Routine WINMARK 

>? TOLINE 4 

PLEASE ENTER LOWER LEFT WINDOW COORDIANTE: -1. -1. 

>>>BREAKPOINT At Line 5 in GPL II Routine WINMARK 

>? STEP 

PLEASE ENTER UPPER RIGTH WINDOW COORDINATE: 20. 22. 

>>>BREAKPOINT At Line 7 in GPL II Routine WINMARK 
>? PROCEED 
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SECTION III WORKSTATION CONFIGURATION 
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WORKSTATION CONFIGURATION III-l 

Program: T$WSETUP.GS 1 1 1-3 

Program: CUSMENU.GS II 1-9 



Ill-i 



WORKSTATION CONFIGURATION 



When the GDSII user first sits down at a GDSII workstation, they must consider the 
current station configuration. 

Every designer, digitizer or engineer has their own particular needs and requirements for 
station configuration. This flexibility of the workstation is a necessity, 

A user may determine which layers, datatypes or element types may be selectable and/or 
visible according to their own personal needs. Color schemes may be set up for a 
particular design process. These are only a few of the station parameters which might be 
established by the user prior to any actual data entry. This "station setup" can involve a 
substantial amount of time if it must be performed everytime the user needs to rest the 
workstation parameters to reflect their own needs. For some time, Calma has provided 
the GDSII user with programs such as RESTART.GS which may be used to reset the 
station parameters to "Calma default". Another such program is CALMAMENU.GS, used 
to load a menu to the workstation and dfunction buttons on the keyboard. 

While these programs have been beneficial to the user in the area of workstation 
configuration, they are in no way complete. The user must still set up those parameters 
which reflect their personal needs. 

Both CALMAMENU and RESTART are GPLII programs. It is much more expedient, both 
for the user and the system, to be able to use these programs rather than having to type in 
all the commands that the programs execute. For Ihis reason, GPLII can greatly enhance 
the process of setting up the GDSII workstation parameters. 

Programs used to set up the user's workstations can range from very simple command 
automation type programs to very elaborate programs that may even write other GPLII 
setup programs to be used later. 

This flexibility in programming allows the user to develop a program that is very specific 
to their needs. 

In the following example, the setup program uses both RESTART.GS and 
CALMAMENU.GS as subroutines and then sets some other station parameters. This is an 
example of a very simple program. Consider, however, how many commands are being 
executed by the programs and what it would require to type them all in interactively. 



NILADIC PROCEDURE MYSETUP 

EXTERNAL NILADIC PROCEDURE CALMAMENU; RESTART 

EXTERNAL N 

•.THIS PROGRAM WILL SET UP THE GDSII WORKSTATION 
LOAD "CALMAMENU" 



IIH 



LOAD "RESTART" 

RESTART 
CALHAMENU 

VLAYER 1-15 63 
SLAYER 1-15 63 
VKIND"BDPCPBTX' 

N:=(-l) 

DO 

N : =N + 1 
ITEM N 
BOUNDARY 
LAYER N 
ORTH INT 
HORI ZFIRST 
DATATYPE 
SETDEFAULTS 

UNTI L N = 7 
ENDDO 

ITEM 8 
SREF 
MAG 1 
REFL"N" 
ANGLE 

ITEM 9 
TEXT 
ANGLE 
MAG .5 
FONT 
TJUST"T"; "L" 

ITEM 

GEDMODE 1 
GSCALE .5 
GRID 2 

ENDSUB 



GPLII can perform a wide range of tasks for the user in the area of workstation 
configuration. In the next example, the program T$WSETUP.GS may be executed by the 
user to actually generate a GPLII setup program. The user only needs to set up the 
station parameters. Next, the user may execute the program and it will "read" the 
current parameters and then write a GPLII program with a specified name. From then on 
the user has a setup program built specifically for their own needs. 
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MLADIC PROCEDURE TSWSETUP 

EXTERNAL CHK;GPLPROG; IFARK; F ILNAM; TEMPNAM 

: CREATED BY: TED PAONE 



F ILNAM := NAMESOPEN 
IF F ILNAM = "" THEN 
DO 

FILNAM := TEXTINPUT "Enter Program Name: " 
UNTIL FILNAM <> "" ENDDO 
ELSE FILNAM := FILNAMCU 

TEMPNAM := FILNAMCIOTA ((FILNAM INDEXOF " . " ) - 1)] 

FILNAM := TEXTINPUT ("Enter Program Name ( <BRON>", TEMPNAM, "<BROFF> ) 
IF FILNAM = "•' THEN FILNAM := TEMPNAM END IF 

ENDIF 

.'CHANGE THIS 

IF (FILE INFO (FILNAM, ". GS">) <> "" THEN 
FDELETE (FILNAM, ". GS" > ENDIF 

GPLPROG := "NILADIC PROCEDURE ", FILNAM, "<CR> :", GTIME 
GPLPROG := GPLPROG, "<CR>LOCAL IFARK<CR>" 

CHK := TEXTINPUT "Colors, Line Styles, and Fills ( <BRON>Y<BROFF> ) : 
IF CHK = "" THEN CHK := "Y" ENDIF 
IF (,CHK)CU IN ("Yy") THEN 

:color, Style, and Fill modes. 

IFARK := COLORBY 
IF IFARK = THEN 

GPLPROG .= GPLPROG, "COLORBY 0<CR>" 

ELSE GPLPROG := GPLPROG, "COLORBY 1<CR>" ENDIF 

IFARK := STYLEBY 
IF IFARK = THEN 

GPLPROG := GPLPROG, "STYLEBY 0<CR>" 

ELSE GPLPROG := GPLPROG, "STYLEBY 1<CR>" 

ENDIF 

IFARK := FILLBY 
IF IFARK = THEN 

GPLPROG := GPLPROG, "FILLBY 0<CR>" 

ELSE GPLPROG := GPLPROG, "FILLBY 1<CR>" 

ENDIF 



;Co I ors 

IFARK : = 

GPLPROG 

GPLPROG 

GPLPROG 

GPLPROG 

GPLPROG 

GPLPROG 

GPLPROG 

GPLPROG 



SETCOLORS 
= GPLPROG, 
= GPLPROG, 
= GPLPROG, 
= GPLPROG, 
= GPLPROG, 
= GPLPROG, 
= GPLPROG, 
= GPLPROG, 



"SETCOLORS """ 
"SETCOLORS """ 
"SETCOLORS """ 
"SETCOLORS """ 
"SETCOLORS """ 

"SETCOLORS 

"SETCOLORS """ 
"SETCOLORS """ 



IFARKCn, 


III 


I , II 
1 • 


IFARKC33, 


i II 


1 . 11 
1 1 


IFARKC53, 


1 II 


1 , II 
1 1 


IFARKC73, 


1 II 


1 , 11 
1 / 


IFARKC93, 


III 


1 . II 
t 1 


IFARKCin 


•1 

1 


III , 1 


IFARKC133 


II 

1 


III . 1 
1 


IFARKC153 


II 
1 


III . 1 
t 



, (FORMAT 
, (FORMAT 
, (FORMAT 
, (FORMAT 
, (FORMAT 
", (FORMAT 
", (FORMAT 
", (FORMAT 



IFARKC23) 
IFARKC43} 
IFARKC63) 
IFARKC83) 
IFARKC103) 
IFARKC123) 
IFARKC143) 
IFARKC163) 



If there are too many layers to fit in one line of text within the program, 
ie. more than 32, the line must be split into 2. 

IFARK := RED 
IF 1 FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 
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GPLPROG := GPLPROG,"RED ", (FORMAT ( IFARKCIOTA 323)) 

GPLPR06 := GPLPROG, "RED ", (FORMAT (IFARKCIOTA (33, (SIZE IFARK))3)) 
ELSE 

GPLPROG : = GPLPROG, "RED ", (FORMAT IFARK) END IF 
ENDl F 

IFARK := BLUE 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "BLUE ".(FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "BLUE ", (FORMAT (IFARKCIOTA (33, (SIZE IFARK) >3>> 
ELSE 

GPLPROG := GPLPROG, "BLUE ".(FORMAT IFARK) ENDIF 
ENDIF 

IFARK := GREEN 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "GREEN ", (FORMAT ( IFARKC IOTA 323)) 

GPLPROG := GPLPROG, "GREEN ".(FORMAT (IFARKCIOTA (33. (SIZE IFARK) )3)) 
ELSE 

GPLPROG := GPLPROG. "GREEN ".(FORMAT IFARK) ENDIF 
ENDIF 

IFARK :r MAGENTA 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG. "MAGENTA ".(FORMAT (IFARKCIOTA 323 >) 

GPLPROG .= GPLPROG. "MAGENTA ".(FORMAT (IFARKCIOTA (33, (SIZE IFARK) )3)) 
ELSE 

GPLPROG := GPLPROG. "MAGENTA ".(FORMAT IFARK) ENDIF 
ENDIF 

IFARK := CYAN 
IF IFARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG. "CYAN ".(FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG. "CYAN ".(FORMAT (IFARKCIOTA (33. (SIZE IFARK? )3)) 
ELSE 

GPLPROG := GPLPROG. "CYAN ".(FORMAT IFARK) ENDIF 
ENDI F 

IFARK := YELLOW 
IF IFARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "YELLOW ".(FORMAT (IFARKCIOTA 323}) 

GPLPROG := GPLPROG. "YELLOW ".(FORMAT (IFARKCIOTA (33. (SIZE IFARK) )3)) 
ELSE 

GPLPROG := GPLPROG, "YELLOW ".(FORMAT IFARK) ENDIF 
ENDIF 

IFARK := WHITE 
IF IFARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG. "WHITE ".(FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG. "WHITE ".(FORMAT (IFARKCIOTA (33. (SIZE IFARK) )3)) 
EL SE 

GPLPROG := GPLPROG. "WHITE ".(FORMAT IFARK) ENDIF 
ENDI F 

:Fi 1 Is and flayers. 
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IF ARK ; = FILLA 
IF I FARK <> "" THEN 

IF <S12E IFARK) > 32 THEN 
GPLPROG := GPLPROG, "FILLA 
GPLPROG := GPLPROG, "FILLA 
ELSE 

GPLPROG := GPLPROG, "FILLA 
END I F 



(FORMAT (IFARKCIOTA 323)) 

(FORMAT (IFARKCIOTA (33, (SIZE IFARK) >3)) 

(FORMAT IFARK) END IF 



IFARK := FILLB 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 
GPLPROG := GPLPROG, "FILLB 
GPLPROG := GPLPROG, "FILLB 
ELSE 

GPLPROG := GPLPROG, "FILLB 
END I F 



(FORMAT (IFARKCIOTA 323)) 
(FORMAT (IFARKCIOTA (33, (SIZE 

(FORMAT IFARK) END IF 



IFARK) )D ) ) 



IFARK := FILLC 






IF I FARK <> "" THEN 






IF (SIZE IFARK) > 32 


THEN 




GPLPROG := GPLPROG, 


"FILLC 


", (FORMAT 


GPLPROG := GPLPROG, 


"FILLC 


", (FORMAT 


ELSE 






GPLPROG := GPLPROG-, 


"FILLC 


", (FORMAT 


END I F 







(IFARKCIOTA 323)) 

(IFARKCIOTA (33, (SIZE IFARK) >3)) 

IFARK) END IF 



IFARK := FILLD 
IF I FARK <> "» THEN 

IF (SIZE IFARK) > 32 THEN 
GPLPROG := GPLPROG, "FILLD 
GPLPROG :s GPLPROG, "FILLD 
ELSE 

GPLPROG := GPLPROG, "FILLD 
ENDI F 



(FORMAT (IFARKCIOTA 323)) 

(FORMAT (IFARKCIOTA (33, (SIZE IFARK))3)) 

(FORMAT IFARK) END IF 



IFARK := FLAYERON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "FLAYER ", 
GPLPROG : = GPLPROG, "FLAYERON 
ELSE 

GPLPROG := GPLPROG, "FLAYER ", 
ENOIF 



(FORMAT (IFARKCIOTA 323)) 

", (FORMAT (IFARKCIOTA (33, (SIZE IFARK) )3>) 

(FORMAT IFARK) END IF 



iLlne Types. 

IFARK := SOLID 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 
GPLPROG := GPLPROG, "SOLID 
GPLPROG := GPLPROG, "SOLID 
ELSE 

GPLPROG := GPLPROG, "SOLID 
ENDI F 



(FORMAT 
(FORMAT 



(IFARKCIOTA 
(IFARKCIOTA 



323)} 

(33, (SIZE IFARK))3)) 



".(FORMAT IFARK) END IF 



IFARK := BROKEN 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "BROKEN ", (FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "BROKEN ", (FORMAT (IFARKCIOTA (33, (SIZE IFARK) )3)) 

ELSE 
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GPLPROG := GPLPROG, "BROKEN ".(FORMAT IFARK) ENDIF 
END IF 



IFARK := DASHED 
IF I FARK <> •"• THEN 

IF (SIZE IFARK) > 32 THEN 
GPLPROG := GPLPROG, "DASHED 
GPLPROG := GPLPROG, "DASHED 
ELSE 

GPLPROG := GPLPROG, "DASHED ", (FORMAT IFARK) ENDIF 
ENDIF 



(FORMAT (IFARKCIOTA 323)) 

(FORMAT (IFARKCIOTA (33, (SIZE IFARK))3)) 



IFARK := DOTTED 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "DOTTED ".(FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "DOTTED ", (FORMAT (IFARKCIOTA (33, (SIZE IFARK) >3)> 
ELSE 

GPLPROG := GPLPROG, "DOTTED ", (FORMAT IFARK) ENDIF 
END I F 



ENDIF 



Viewed Layers, types, and kinds. 
CHK := TEXTINPUT "View Paramenters ( <BRON>Y<BROFF> ) : 
IF CHK = "" THEN CHK := "Y" ENDIF 
IF (,CHK)C13 IN ("Yy") THEN 

IFARK := VLAYERON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "VLAYER ", (FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "VLAYERON ", (FORMAT (IFARKCIOTA (33, (SIZE IFARK) )3)) 
ELSE 

GPLPROG := GPLPROG, "VLAYER ", (FORMAT IFARK) ENDIF 
ENDIF 

IFARK := VDTYPEON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 



GPLPROG 
GPLPROG 
ELSE 

GPLPROG 
END I F 



- GPLPROG, "VDTYPE ".(FORMAT (IFARKUOTA 323)) 

= GPLPROG, "VDTYPEON ", (FORMAT (IFARKCIOTA (33, (SIZE IFARK) )3)) 

= GPLPROG, "VDTYPE ".(FORMAT IFARK) ENDIF 



IFARK := VTTYPEON 
IF I FARK <> "•• THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "VTTYPE ", (FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "VTTYPEON ".(FORMAT (IFARKCIOTA (33, (SIZE IFARK) )3)) 
ELSE 

GPLPROG := GPLPROG, "VTTYPE ".(FORMAT IFARK) ENDIF 
ENDIF 

IFARK := VNTYPEON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "VNTYPE ", (FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "VNTYPEON ", (FORMAT (IFARKCIOTA (33, (SIZE IFARK))])) 

ELSE 
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GPLPROG := GPLPROG, "VNTYPE ", (FORMAT IFARK) ENDIF 
ENDl F 

IFARK := VBTYPEON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "VBTYPE ".(FORMAT (IFARKCIOTA 323)) 

GPLPROG .= GPLPROG, "VBTYPEON ", (FORMAT (IFARKtIOTA (33, (SIZE IFARK) )3)> 
ELSE 

GPLPROG .= GPLPROG, "VBTYPE ", (FORMAT IFARK) ENDIF 
ENDIF 

IFARK := VKINDON 
IF I FARK <> "" THEN 

GPLPROG := GPLPROG, "VKIND """, IFARK ,"""<CR>" 
ENDl F 

IFARK := MARKS I ZE 

GPLPROG := GPLPROG, "MARKS I ZE ", (FORMAT IFARK) 

IFARK := SLIMSIZE 

GPLPROG := GPLPROG, "SLIMSIZE ", (FORMAT IFARK) 

ENDIF 

ISELECTABLES 

CHK := TEXTlNPUT "Selectable Parameter5(<BR0N>Y<BR0FF>): 

IF CHK r '<•' THEN CHK := "Y" ENDIF 

IF <,CHK)Cn IN ("Yy") THEN 

IFARK := SLAYERON 
IF 1 FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "SLAYER ".(FORMAT (IFARKtIOTA 323)) 

GPLPROG := GPLPROG, "SLAYERON ", (FORMAT (IFARKCIOTA <33, (SIZE IFARK) )3)) 
ELSE 

GPLPROG := GPLPROG, "SLAYER ".(FORMAT IFARK) ENDIF 
ENDIF 

IFARK := SDTYPEON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "SDTYPE ".(FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "SDTYPEON ".(FORMAT (IFARKCIOTA (33, (SIZE IFARK))3)) 
EL SE 

GPLPROG := GPLPROG, "SDTYPE ", (FORMAT IFARK) ENDIF 
ENDl F 

IFARK := STTYPEON 
IF 1 FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG .= GPLPROG, "STTYPE ", (FORMAT ( IFARKC IOTA 323 ) ) 

GPLPROG := GPLPROG, "STTYPEON ".(FORMAT (IFARKCIOTA (33. (SIZE IFARK) )3)) 
ELSE 

GPLPROG := GPLPROG, "STTYPE ".(FORMAT IFARK) ENDIF 
ENDl F 

IFARK := SNTYPEON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG := GPLPROG, "SNTYPE ".(FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "SNTYPEON ", (FORMAT (IFARKCIOTA (33. (SIZE IFARK) )3)) 

ELSE 

GPLPROG r GPLPROG, "SNTYPE ".(FORMAT IFARK) ENDIF 
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END I F 

IF ARK .= SBTYPEON 
IF I FARK <> "" THEN 

IF (SIZE IFARK) > 32 THEN 

GPLPROG .= GPLPROG, "SBTYPE ", (FORMAT (IFARKCIOTA 323)) 

GPLPROG := GPLPROG, "SBTYPEON ".(FORMAT (IFARKCIOTA (33, (SIZE IFARK) )3)) 
EL SE 

GPLPROG := GPLPROG, "SBTYPE ".(FORMAT IFARK) ENDIF 
END IF 

IFARK := SKINDON 
IF I FARK <> "" THEN 

GPLPROG := GPLPROG, "SKI ND """, IFARK ,"""<CR>" 

EN OIF 
END I F 

: MOO ES 

CHK := TEXTINPUT "Modes (<BRON>Y<BROFF>): " 
IF CHK = "" THEN CHK := "Y" ENDIF 
IF ( ,CHK)Cn IN "Yy" THEN 
IFARK := RTDIGMODE 
IF IFARK = THEN 

GPLPROG := GPLPROG, "RTDIGMODE 0<CR>" 

ELSE GPLPROG := GPLPROG, "RTDIGMODE 1<CR>" ENDIF 

IFARK := DEFMODE 
IF IFARK = THEN 

GPLPROG : = GPLPROG, "DEFMODE 0<CR>" 

ELSE GPLPROG := GPLPROG, "DEFMODE 1<CR>" ENDIF 

IFARK := (ZDMODE 
IF IFARK = THEN 

GPLPROG := GPLPROG, "GEDMODE 0<CR>" 

ELSE GPLPROG : = GPLPROG, "GEDMODE 1<CR>" ENDIF 

IFARK := INTCHECKMODE 
IF IFARK = THEN 

GPLPROG := GPLPROG, "INTCHECKMODE 0<CR>" 

ELSE GPLPROG := GPLPROG, " INTCHECKMODE 1<CR>" ENDIF 

IFARK := \WODE 
IF IFARK = THEN 

GPLPROG := GPLPROG, "VMODE 0<CR>" 

ELSE GPLPROG := GPLPROG, "VMODE 1<CR>" ENDIF 

IFARK := SNAPMODE 
IF IFARK = THEN 

GPLPROG := GPLPROG, "SNAPMODE 0<CR>" 

ELSE IFARK := SNAPS I ZE 

GPLPROG := GPLPROG, ("SNAPMODE 1<CR>SNAPSIZE ".(FORMAT IFARK) , "RE0RAW<CR>" > ENDIF 
IFARK := AUTOHOLD 
IF IFARK = THEN 

GPLPROG : = GPLPROG, "AUTOHOLD 0<CR>" 

ELSE GPLPROG := GPLPROG, "AUTOHOLD 1<CR>" ENDIF 
ENDIF 

ADD ITEMS 
MENU 
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CHK .= TEXTINPUT "MENU Paramenters ( <BRON>Y<BROFF> > : " 
IF CHK = "" THEN CHK = "Y" ENDIF 
IF ( , CHK)C13 IN "Yy" THEN 

IBut tom Menu 

IF ARK := RMENU 

IF (LENGTH IFARK) = 5 THEN 

GPLPROG := GPLPROG, "RMENU , IFARKC n ,""";",< CFORMAT 1 FARKC 2D )/';•',( CFORMAT IFARKL3]) 

GPLPROG := GPLPROG, ";", (CFORMAT IFARKC4] )/';", (FORMAT IFARKC53) ENDIF 

.'Menu Graphics 

IFARK := RSCREEN 
IF IFARK <> "" THEN 

GPLPROG := GPLPROG, "RSCREEN , IFARK, """<CR>" 

ENDIF 

:Tab let 

IFARK := SETTAB 

IF IFARK <> "" THEN 

GPLPROG := GPLPROG, "SETTAB ", (FORMAT IFARK) ENDIF 
ENDl F 

GPLPROG := GPLPROG, "<CR>ENDSUB<CR>" 
"Com pi ling <BRON>", FILNAM, "<BROFF>. " 
(FILNAM, ". GS") SAVE GPLPROG 
GPL FILNAM; "N" 
LOAD FILNAM 

ENDSUB 



Another area of workstation configuration that can enhance the users performance is that 
of writing a custom menu rather than using such menus as CALM AMENU. 

In the following program, CUSMENU.GS, the user is lea(j through the menu building 
process by the program. The program then writes all the necessary files needed to create 
a cxistom menu. 



; PRO GRAM NA»€: CUSMENU.GS 
; CREATED BY: CHRIS MARTIN 
'.DATE: JULY 13, 1984 

: PUR POSE: THIS PROGRAM WILL ALLOW THE USER TO CREATE 
THEIR OWN CUSTOM MENU 

:RELEASE: 5. 0. 1 

: FILES NEEDED: CALMAFONT. TX 
: CUSMENU.DB 

: CUSMENU.G*t 

;T0 CREATE THE CUSMENU.DB LIBRARY: MAKE A COPY OF THE CALMAMENU. DB 
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LIBRARY WHICH CONTAINS A MENU FOR EACH TYPE OF SCREEN. DELETE ALL 
OF THE MENU GRAPHICS IN EACH STRUCTURE BUT KEEP THE GRID THAT 
DEFINES THE BUTTONS. MAINTAIN THE SAME STRUCTURE NAMES. 



AT THIS TI^C, ONLY THE COORDINATE LISTS FOR THE MHD AND THE MRD TYPE 
SCREENS HAVE BEEN CALCULATED. 



MLADIC PROCEDURE CUSMENU 

EXTERNAL MONADIC FUNCTION CLEANUP 

EXTERNAL NILADIC PROCEDURE RESTART 

EXTERNAL MONADIC FUNCTION CFMT 

EXTERNAL TAB_TYPE 

EXTE RNAL MENU_FILE; MN; CC; RC; COM_NUM, ROW_CNT; COL_CNT; IN_COL; IN_ROW 

EXTE RNAL N_COLS; N_ROWS; NEWCOM; GEN 

EXTERNAL GENS; B_F1LE, E_F1 LE; NEW_F ILE 

EXTERNAL MENU_LIB; INDI 

EXTERNAL NEW__TEXT; SIGN 

EXTERNAL LIB_NAME; ANS; OP_LIB; LIB; CRDS; CRTS 

EXTERNAL COMS;S_TXT; TXT; TXT1;TXT2;TXT3;N;X; FIND; CRD 

EXTE RNAL C IR_NUM; S I N__NUM; C I R_I NFO; C I R_CRD 

EXTERNAL C_CNT; R_CNT; CCNTS; RCNTS; COM_MANDS; XX; INCR; SPC 

EXTE RNAL MTXT; ETXT; BTXT; S_DSH; DSH 



TAB_TYPE: rTABTYPE 

IF TAB_TYPE = 3 THEN 

LOAD "RESTART" 

"STATION WILL BE RESTARTED FOR TALOS WEDGE TABLET' 

RESTART 

END I F 



THIS PROGRAM WILL ALLOW YOU TO CREATE A CUSTOM MENU" 
<BRON>THIS PROGRAM ONLY SUPPORTS THE MHD AND MRD SCRE£N<BROFF>' 



SLEEP 5 
tmn i^nunnniUHiiHnmimtnnnm RESTRICTIONS *nnktnnminttntuinnnnnmttti*nmmnnm" 
II 

1. IF YOU WISH TO DEFINE ONE OF THE MENU BUTTONS AS A CARRIAGE" 
RETURN, YOU MUST TYPE IT IN AS FOLLOWS:" 
C/R" 
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FOLLOWED BY A CARRIAGE RETURN" 

IF YOU WISH TO LEAVE A BUTTON UNDEFINED, YOU MAY ENTER A" 
CARRIAGE RETURN OR TYPE IN <OT>NONE<QT>" 



SLEEP 10 

'3. COMMANDS MAY BE BROKEN INTO AS MANY AS 3 LINES; 4 CHARACTERS PER" 

LINE. IF YOU WISH TO <OT>BREAK<QT> A COMMAND INTO MORE THAN ONE" 

LINE, YOU MAY USE DASHES (I.E., DIS-PLAY-STAT> . IF YOU DO NOT " 

USE DASHES TO DEFINE THE BREAKS, THE PROGRAM WILL CREATE 4 CHAR-" 

ACTER LINES. " 
I ti 

•4. COMMANDS MAY BE ABBREVIATED OR GPL PROGRAM NAMES MAY BE USED TO" 

DEFINE A BUTTON. THE PROGRAM WILL ALERT YOU THAT THE COMMAND IS" 

UNDEFINED, BUT ALLOW YOU TO MAKE THE ASSIGNMENT. THE PROGRAM WILL" 

PROMPT AT A LATER TIME TO DEFINE THE COMMAND. " 

EXAW^LE: <QT>1D-CLR<QT> FOR IDCLEAR COMMAND" 

<QT>GET-ST<QT> FOR GPLI I PROGRAM" 

I II 

I II 

ANS: =TEXTINPUT"PLEASE STRIKE ANY KEY TO CONTINUE: 
•I II 

FLAYEROFF 
SOLID 

:SECTION 1: DETERMINING USER'S LIBRARY 



BEGIN: 

ME NU_LIB:=TEXT INPUT "MENU LIBRARY NAME: " 

IF MENU_LIB <> "" THEN 

IF (FILEINFO (MENU_LIB, ".DB")> = "" THEN 

"CREATING NEW MENU LIBRARY: ", MENU_LIB, " . DB* 

FCOPY "CUSMENU.DB"; {MENU_LIB,". DB">~ 

OPEM.IB MENU_LIB 

ELSE 

"(< (ERROR))) LIBRARY ALREADY EXISTS." 

GOTO BEGIN 

END IF 

ELSE 
II II 

"(((ERROR))) PLEASE SPECIFY MENU LIBRARY NAME" 
II II 

GOTO BEGIN 
END IF 



ISECTION 2: SETTING THE WORK STATION 
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IF ( STADPYIIvFO "CUR") <> 

TSTRUCT 
END IF 



THEN 



IF <STADPYir>FO "MEN") <> 
RMENU"" 
RSCREEN "" 
END I F 



THEN 



CRTS : =CRTTYPE 

SWITCH CRTS OF 
CASE 0: 



CASE 1 



CASE 2: 



CASE 3: 



CASE 4 



OUT: 



ENDS WITCH 



: ©STRUCT "TEKMENU" 

"NOT IMPLEMENTED AT THIS TIME" 

GOTO FINI 

OSTRUCT "MRDMENU" 

CRDS: =24. 25, 880. 9; 24. 25, 928. 7; 24. 25, 976. 5; 947. 9, 23. 8; '^ 

947. 9, 71. 4; 947. 9, 119; 947. 9, 166. 6; 947. 9, 214. 2; 947. 9,261. 8; '^ 

947. 9, 309. 4; 947. 9, 357; 947. 9, 404. 6; 947. 9, 452. 2; 947. 9, 499. 8; ^ 

947. 9, 547. 4; 947. 9, 595; 947. 9, 642. 6; 947. 9, 690. 2; 947. 9, 737. 8, -^ 

947. 9, 785. 4; 947. 9,833 

: OSTRUCT "VMDMENU" 

"NOT IMPLEMENTED AT THIS TIME" 

GOTO FINI 

OSTRUCT "MHDMENU" 

CRDS:=28.4i5,879. 86; 28. 415,927. 42; 28. 415,974. 98; '^ 

1108.27,23.78; 1 108. 27, 71 . 34; 1 108. 27, 1 18. 9; 1 108. 27, 166.46;^ 

1108. 27,214. 02; 1108. 27,261.58; 1108. 27,309. 14;^ 

1108. 27,356. 7; 1108. 27,404. 26; 1108.27,451. 82;'" 

1108.27,499.38; 1108.27,546.94; 1108.27,594.5;^ 

1108. 27,642.06; 1108. 27,689.62; 1108.27,737. 18;^ 

1108. 27,784. 74; 1108. 27,832. 3 

J OSTRUCT "BVOMENU" 

"NOT IMPLEMENTED AT THIS TIME" 

GOTO FINI 

"STATION TYPE NOT IMPLEMENTED" 
PROGRAM ABORTED " 
GOTO FINI 



: SECT I ON 3: SETTING STATION PARAMETERS 

AUTO HOLD 

BLUE 1-62 

RED 63 

WHITE 

VLAYER 

SLAYER 

VKIND 

SKIND 

VDTYPE 

SDTYPE 

VK I N DOFF"SOTOSEAE" 

VIEW 
ZOOM 1. 1 
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'.SECTION 4: SETTING VP ITEMS 



OEFMODE 
ITEM 
TEXT 
MAG 16 
ANGLE 
LAYER 
FONT 
TJUST "M"; "C 
REFL "N" 
SETDEFAULTS 



FLAYER 63 
FILLD 63 

ITEM 1 

SREF 

SNAME "SIGN' 

MAG 1 

REFL"N" 

SETDEFAULTS 



CE 555, 414 

PUT 

SIN_NUM:=MSELECT 2; ""; ""; ""; "SIGN" 



OEFMODE 1 



: SECTION 5: START ENTERING COMMANDS FOR MENU 



:COMS.=FETCH "COMMNDS. CC 
COMS : =SYSN 



COM_MANDS:="" 
CCNTS:=22;3 
RCNTS:=3;21 
SPC: =56. 83; 57 

N:=0 

XX: = 

DO 

XX: = XX + 1 

C_CNT:=CCNTSCXXD 

R CNT:=RCNTSCXX3 
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INCR : =SPCCXX3 

DO 

N:=N + 1 

CRD: =CRDSCN3 

ITEM 1 

SNAME"CIRCLE" 
CE CRD 
PUT 

CIR^NUM: =MSELECT 2; ""; ""; ""; "CIRCLE" 
CIR INFO:=GETEL CIR NUM 



ITEM 



X:=0 

DO 

X.=K + 1 

START: 

TXT:=TEXTINPUT "BUTTON DEFINITION: 
ti II 

IF TXT <> "" AND TXT <> "NONE" THEN 



S_TXT:=SIZE TXT 

IF C TXT iNDICESOF "-") <> "" THEN 
FOUND DASH. . . " 
DSH:=TXT INDICESOF "-" 
S_DSH:=SI2E DSH 

IF S DSH = 1 THEN 

BTXT:=TXTtIOTA ( 1 , ( DSH - 1>>3,"<CR>" 
ETXT:=TXTCIOTA ((DSH + 1),S_TXT)3 
MAG 13 

TXT:=BTXT,ETXT 
END I F 
IF S DSH = 2 THEN 

BTXT:=TXTtIOTA (1, (DSHCID - 1))3,"<CR>" 
MTXT:=TXTCIOTA ((DSHCU + 1), <DSHt23 « U>3,"<CR>" 
ETXT:=TXTCIOTA ((DSHC23 +1), S_TXT)3 
MAG 10 

TXT: =BTXT, MTXT, ETXT 
END IF 



NEW TEXT:=CLEANUP TXT 

FIND:="" 

FIND:=COMS INDICESOF (" ", NEW_TEXT, " ") 

IF F IND = "" THEN 

^ "NOT A DEFINED COMMAND. . . " 

ANS:=TEXTINPUT"DO YOU STILL WISH TO DEFINE CY OR N> 

IF NOT (ANSC13 IN "YY"> THEN 
GOTO START 

END IF 
END IF 
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ELSE 



FIND:="" 

F1ND:=C0MS INDICESOF 
IF FIND <> "" THEN 
NO DASH. . . " 



(" ",TXT," ") 



IF S TXT > A AND S_TXT <= 8 THEN 
TXT1:=TXTCI0TA < 1 , 4 ) 3 , "<CR> " 
TXT2:=TXTCI0TA (5,S TXT) 3 
TXT:=TXT1,TXT2 
MAG 13 
END IF 

IF S_TXT > 8 AND S_TXT <= 12 THEN 
TXT1:=TXTC10TA (7, 4 ) 3, •'<CR>" 
TXT2:=TXTCI0TA ( 5, 8) 3, "<CR>" 
TXT3; sTXTtlOTA <8,S_TXT)3 
TXT:=TXT1,TXT2,TXT3 
MAG 10 
END IF 
ELSE 
"NOT A DEFINED COMMAND. . . " 
ANS:=TEXT INPUT "DO YOU STILL WISH TO DEFINE <Y OR N) 
IF NOT (ANSC13 IN "Yy"> THEN 

GOTO START 
END IF 
S_TXT:=SIZE TXT 

IF S_TXT > 4 AND S TXT <= 8 THEN 
TXT1:=TXTCI0TA (T, 4 > 3 , "<CR>" 
TXT2:=TXTCI0TA (5,S_TXT)3 
TXT:=TXT1,TXT2 
MAG 13 
END IF 

IF S TXT > 8 AND S TXT <= 12 THEN 
TXT1:=TXTCI0TA <T, 4 > 3, "<CR>" 
TXT2:=TXTC10TA (5, 8 > 3, "<CR>" 
TXT3:=TXTCI0TA (8, S_TXT)3 
TXT:=TXT1,TXT2,TXT3 
MAG 10 
END IF 
ENDIF 



END I F 



ELSE 
TXT:=": 
MAG 20 
ENDIF 



ENTERTEXT TXT 

CE CRD 

PUT 

CROC 13:=CRDC13 + INCR 

CIR INFOt63:=CRD 

PUTEL CIR_I^FO 

TXT: sCLEANUP TXT 

COM MANDS:=COM MANDS;TXT 

UNTTl X = CJTNT 

ENDDO 
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DATAOELETE"Y"; CIR_NUM 

UNTI L N = R_CNT 
ENDDO 

UNTI L XX = 2 
ENOOO 



'NOW COMPILING BUTTON MENU FILE. 



MENU_FILE:=";FILE NAME: ", MENU_L IB, " . BM<CR>" 
MENU _F I LE ; =r€NU_F I LE , ' 
MENU _F I LE : =MENU_F I LE , ' 
MENU _F I LE : =^€NU_F I LE , ' 
MENU_FILE.=^ENU_FILE, ' 
MENU FILE "" 



; SINGLE LEVEL MENU<CR>" 
;DATE: '^CCFMT DAY), "<CR>; <CR>" 
MENU 1: R0WS=3, C0LS=22<CR>" 
MENU 2: R0WS=18, C0LS=3<CR>" 



=F€NU_FILE, "; <CR>" 



MN:=0 
CC:=RC:= (-1) 



C0M_NUM 
R0W~CNT 
COL CNT 



= 1 

=2; 17 
=21;2 



IN COL:=IN ROW:=0 



DO 

IN_COL: 
I N__R OW : 

N_CO LS : 
N_RO WS : 

MN:=MN 
RC:= (- 



=IN_COL + 1 
= IN__ROW + 1 

=colj:ntcin_col3 

=R0W_CNTtIN~R0W3 

•»• 1 
1) 
00 

RC:=«C + 1 
CC:= (-1 ) 

DO 

CC:=CC + 1 

COM NUM:=COM_NUM + 1 

MENU_FILE:=MENU FILE, "CA", < CFMT MN) , "R", ( CFMT RC> , "C", < CFMT CC>,"3<CR>" 

NEWCOM : =CLE ANUP COM_M ANDS C COM_NUM 3 

IF NEWCOM = "::::::::" THEN 
NEWCOM : =" ; UNASS I GNED" 

MENU FILE:=MENU_FILE, "'", NEWCOM, "'", "<CR>" 

END IF 

IF NEWCOM = "CR" OR NEWCOM = "C/R" THEN 

NEWCOM: ="<74>CR<76>" 

MENU_F I LE : =MENU__F I LE ,"'", NEWCOM ,•"•',"< CR > •• 

ENDIF 



IF NEWCOM <> ";UNASSIGNED" AND NEWCOM <> "<74>CR<76>" THEN 
IF (COMS INDICESOF (" ", NEWCOM, " ")) <> •'" THEN 
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ENDl F 



MENU_FILE:=MENU_FILE, ""',NEWCOM, "<74>CR<76> '<CR>" 

ELSE 

II It 

"<BRON>COMMAND UNDEFINED: ", NEWCOM. "<BROFF>" 

it II 

ANS:=TEKTINPUT"DO YOU WISH TO RE-DEFINE ( Y OR N ) : " 

IF (ANSCn IN "Yy"> THEN 

NEWCOM: =TEXTINPUT"COMMAND: 

MENU_F1LE:=MENU FILE, "'", NEWCOM, •'<74>CR<76> '<CR>" 

ELSE 

MENU_F I LE : =MENU FILE, "'".NEWCOM, "<74>CR<76> ' <CR>" 

ENDIF 
ENDIF 

UNTIL CC = N_COLS 
ENDDO 



UNTIL RC = N_ROWS 

ENDDO 
UNTl L MN = 2 
ENDDO 

{MENU_LIB, ".BM") SAVE MENU_F1LE 



S I GN : =MSELECT 2 ;"";"" ; " " ; "S I GN" 

DATADELETE "Y";SIGN 

IF CRTS = 3 THEN 

WSCREEN MENU LIB;. 863 .856;0,0 1250.26,998.76 

ELIF CRTS = T THEN 

WSCREEN MENU LIB;. 866 . 856; 0, 1067,1000 

ENDIF ~ 

CLOSELIB 

REDR AW 



GEN: =FETCH"GENMENU.GS" 

X:=l 

00 

GENS:=GEN IhOICESOF "GENMENU" 

INDI :=GENSCX] 

B_FI LE:=GENCIOTA (1,(INDI - 1))D,MENU LIB 
E_FI LE:=GENCIOTA ((INDI + 7>,(SIZE GEN > ) 3 

GEN: =B_FILE,E_FILE 

UNTl L (SIZE GENS) = 1 
ENDDO 

(MENU_LIB, "GS") SAVE GEN 
GPL MENU_LIB;»N" 



X:=0 

DO 

X:=X 4 1 

"<CR>" 

UNTl L X = 10 
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ENDDO 

•<BRON>PROGRAM COMPLETE. . <BROFF>" 
» II 

•<BRON>YOUR NEW MENU IS: ", MENU_LIB, "<BROFF>" 
'II 

'<BRON>TYPE: ",MENU_LIB," TO LOAD MENU TO YOUR STAT10N<BR0FF>" 



CALL MENU.LIB 
FINI : 
ENDSUB 



MONADIC FUNCTION NUM^CHAR; =CFMT IN_NUM 
LOCAL NUM_CHAR; IN_NUM ~ 

EXTERNAL OUT__NUM 

OUT_NUM . =CFORMAT I N_NUM 

OUT^NUM: =OUT_NUMCIOTA (1,<(SIZE OUT_NUM) - 1)>3 

NUM~CHAR:=OUf_NUM " 

ENDSUB 



: PRO GRAM NA^C: CLEANUP. GS 
:CREATED BY: CHRIS MARTIN 
:DATE: JUNE 18, 1984 

'.RELEASE 5.0. 1 

: PURPOSE: THIS PROGRAM WILL CLEAN UP THE COMMANDS USED TO 
IDEFINE THE BUTTONS IN THE CUSMENU PROGRAM. IT WILL REMOVE 
:THE CARRIAGE RETURNS FROM THE COMMANDS WHICH HAVE BEEN 
: BROKEN UP TO FIT THE BUTTON AREA ON THE MENU. 

MONADIC FUNaiON CMND: =CLEANUP INPUT_CMND 

LOCAL CMND; INPUT CMND 

EXTERNAL S_CMND; CHK; COM_MANDS; B_CMND; M_CMND; E_CMND 

S CMND:=SIZE INPUT_CMND 

CHK: =INPUT_CMND INDICESOF ••<CR>" 

IF CHK <> "" AND CHK <> S_CMND THEN 
IF (SIZE CHK) = l^THEN 

B CMND:=INPUT_CMNDCIOTA (1, (CHK ~ 1>>3 
E"cMND:=INPUT'~CMNDCIOTA ((CHK + U, S_CMND)3 
CMND:=B CMND,E CMND 
END IF 

IF (SIZE CHK) = 2 THEN 

B_CMND:=INPUT__CMNDCI0TA (1, (CHKC1.1 - 1))3 



IIH8 



M CMND: =INPUT__CMNDnOTA ((CHKC13 + 1),(CHKC2] - i))3 
eIcMND;=INPUT~CMNDCIOTA ((CHKt2D + 1 ) , S_CMND ) 3 
CMND: =B_CMND,M CMND, E CMND 
END IF "" 



ELSE 

CMND: = INPUT CMND 
END IF "■ 

ENDSUB 
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GDSII DATABASE INTERFACE 



Why is GPLII necessary? 

Perhaps the most useful aspect of GPLII is its capability to efficiently interface with 
the GDSII database. This is not to say that GPLII is not a useful tool throughout the 
entire GDSII environment. It is, in fact, an integral part of the GDSII graphics 
system. 

However, if any one capability of GPLII may be described as the true "power" of this 
programming language, it is in the area of database manipulation. With GPLII as a 
CAD tool we, as users, no longer have to rely on ITEMs and/or ID groups in order to 
modify the database. We can use GPLII to perform modifications in the database 
with minimal input from the user. Thus reducing the chances for operator error. 

Not only may we use GPLII to perform modifications within a single structure, we 
may also instruct the GPLII program to perform a number of specific modifications 
throughout the entire database. This capability provides a more efficient use of the 
GDSII system. 

In this section, we are going to discuss the commands and functions that allow GPLII 
to interface with the GDSII database. We will also be examining several example 
programs. 

GPLII FUNCTIONS 

GPLII Function: NSELECT 

Niladic Syntax: var := NSELECT(CR) 

Function: Assigns the keys of all selectable elements in the open structure to the 
variable as an integer 2. Check the WINOPTIONS. 

Returns a null if no elements are selectable. 

Program Information: 

TYPEOF = Integer? or Null 
SIZE = n Keys (0 if null) 

LENGTH = 1 
SHAPE = n Keys (0 if null) 

Example: 

? NKEYS := NSELECT(CR) 
7 

Assigns all selectable keys to NKEYS. 
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GPLII Function: MSELECT 

Monadic Syntax: var := MSELECT selection pattern(CR) 

Function: Assigns all of the keys in the open structure that are specified by the selection 
pattern to the variable as an integer2. The selection pattern must include list element 
one. Any other list elements contained in the selection pattern define the parameters the 
elements specified in list element one must meet in order to be selected by MSELECT. 
Any parameters that do not apply to the specified type(s) will be ignored. 

The order of the selection pattern must conform to the order of the list elements in the 
element list: 

list [-3] - do not sort keys ^ fJ 01^ '. TVIi 6 I ^ WxUCU fy^Al^^ 

list [-2] - database only 

list [-1] - id group 

list[l] - element type 

list [2] - layer number (Boundary, Path, Text, Box, and Node) or else "NULL" 

list [3] - datatype, texttype, boxtype, structype, else "NULL" 

list W - width (+n)/abswidth (-n), or array shape, or else "NULL" 

(list [4] ) [1] - if array shape, number of columns 
(list [4] ) [2] - if array shape, number of rows 
list [5] - structure name, or text string, or else "NULL" 

list [6] - element coordinate (2), array extent 

list [7] - transformation specifier property, else "NULL" 

(list [7] ) [ 1] - reflection (1 ), no reflection (0) 
(list [7] ) [2] - angle (+n)/absangle (-n) 
(list [7] )[3] - mag (+n)/absangle (-n) 
list [8] - pathtype or font number, else "NULL" 

list [9] - Property number 127 (user string) else "NULL" 

list [10] - Property number 126 (user integer) else "NULL" 

list [11] - All other property values ( [ property number] value [property 
number] value . . . ) 

MSELECT can select non-selectable elements. If window coordinates (list element 
six) have not been specified, the coordinates of the maximum data area will be 
assigned automatically. K no window is specified when "EX" is a WINOPTION, no 
keys will be scanned. 

Wild cards * and - are allowed in a character vector pattern. Semicolons (;) must 
separate list elements, and double quotes (" ") enclose diaracter vectors. 
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Program Information: 

TYPEOF = Integer2 or Null 
SIZE =n Keys (0 if null) 

LENGTH = 1 
SHAPE =n Keys (0 if null) 



Examples: 



? BKEYS := MSELECT 3; 15; 3(CR) 

7 

Assigns the keys of all Boundaries on layer 15 with datatype 3 to BKEYS. 

? MKEYS := MSELECT 2; ; ; ; "BUFl"; ; ^5 l(CR) 
7 

Assigns the keys of all SREF's named BUFl with reflection, an angle of ^5 
degrees, and a magnification of 1 to MKEYS. 

? ALLKEYS := MSELECT 1 2(CR) 
7 

Assigns the keys of all AREF's and SREF's to ALLKEYS. 
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GPLII Function: DSELECT 

Dyadic Syntax: var := keys DSELECT selection pattern(CR) 

Function: Assigns ail of the specified keys that nneet the selection pattern criteria to the 
variable as an integer2 vector. The selection pattern must include list element one. Any 
other list elements contained in the selection pattern define the parameters Ihe elements 
specified in list element one must meet in order to be selected by DSELECT. Any 
parameters that do not apply to the specified element type(s) will be ignored. 

The order of the selection pattern must conform to the order or the list elements in the 
element list: Aah?^TlP^ 

list[l] - element type / 

list [2] - layer number (Boundary, Path, J^t, Box, and Node) or else "NULL" 

list [3] - datatype, texttype, boxtype,. sJructype j else "NULL" 

list \W\ - WIDTH (+ n)/Abswidth'(-n), array shape, else "NULL" 

(list W ) [1] - if array shape, number of columns 

(list [^] ) [2] - if array shape, number of rows 

list [5] - structure name or text string else "NULL" 

list [6] - element coordinates or array extents 

list [7] - transformation specifier property else "NULL" 

(list[7])[i] - reflection (1), no reflection (0) 

(list [7] ) [2] - angle (+ n)/absangle (-n) 

(list [7] ) [3] - mag (+ n)/absmag (-n) 

list [8] - pathtype or font number else "NULL" 

list [9] - property number 127 (user string) else "NULL" 

list [10] - property number 126 (user integer) else "NULL" 

list [11] - all other property values (formatted property number value 
ixoperty number value . . . ) 

wild cards - and * are allowed in a character vector pattern. Semicolons (;) must separate 
list elements and double quotes (" ") enclose diaracter vectors. 

Program Information: 

TYPEOF = INTEGER2 or NULL 

SIZE = n (0 if NULL) 

LENGTH = 1 

SHAPE = n (0 if NULL) 

Examples: 

? BOFB := IDKEYS DSELECT 3; 12; 0(CR) 
7 

or 

? BKEYS:= IDKEYS(CR) 

? BOFB := BKEYS DSELECT 3; 12.0(CR) 

7 

Assigns the keys of all the elements in the identified group that are Boundaries on 
layer 12 with datatype to BOFB. 



? MKEYS := SKEYS DSELECT 2; ; ; ; "SSR06»"(CR) 



? SKEYS := MSELECT 2(CR) 

? MKEYS := SKEYS DSELEC 
7 

Assigns the keys of all SREF's whose names begin with SSr<06 to MKEYS. 
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GPLII Function: USELECT 

Monadic Syntax: var := USELECT selection pattern(CR) 

Function: USELECT (Update user Property Select) selects the nearest data element(s) 
and update the user property value specified by the pattern criteria. USELECT as a 
function returns the total number of data elements updated. The pattern criteria is 
outlined as follows: 

[1] The first element in the list specifies the element type. The element type is 
represented as an integer value 1 through 7. Where 1 = AREF, 2 = SREF, 3 = 
BOUNDARY, 4 = PATH, 5 = TEXT, 6 = NODE, and 7 = BOX. If more than one 
data element is to be scanned, a vector can be specified. Besides the element 
number 1 through 7, a can be used to display the trapsize of the window to be 
scanned. The trapsize is determined by the SNAPSIZE value and is centered 
around the coordinate given in the sixth element in the list. See below. 

[2] The second element in the list specifies the element layer. The argument can 
be an integer scalar (single layer) or an integer vector (multiple layers). If 
multiple layers are to be specified, the dash (-) cannot be used. Instead, used 
the GPLII operator IOTA. See examples below. 

[3] The third element in the list specifies the element type. The element type can 
be an integer scalar or an integer vector. Syntax wise, it is the same as layer. 
See example below. 

[^] The fourth element in the list specifies the width or a range of widths (n,m) of a 
PATH element. Currently this element list is not implemented and a null must 
be specified. 

[5] The fifth element in the list specifies the structure name(s) or text string(s). If 
more than one structure name or text string is to be scanned a space must be 
used as a delimiter to separate the names. Currently the fifth element in the 
list is not implemented and a null argument must be given. Wild card patterns 
can be used. Wild card patterns are as follows: 

♦(asterisk) Match any one character or match any number of diaracters 
depending on the number of asterisks being specified. For 
example: 

"♦*CDE*" "ABCDEFG" (no match) 

"ABCDEF" (match) 

"lABCDEF" (no match) 

"X1CDE2" (match) 

-(dash) Match any number of characters. For example: 

"-X-Y" "XY" (match) 

"YX" (no match) 

"EXPKEY" (match) 

"3XY7" (no match) 
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(a (at) 



Match any single upper or lower case characters. For example: 
"A(aB(a" 



"AaBb" 
"AABb" 
"abed" 
"ABCD" 



(match) 
(no match) 
(match) 
(no match) 



# (Pognd) Match any single ASCII numeric digits through 9. For example: 



"#A#B" 



"lAlB" 
"AlBl" 
"1 ABB" 



(match) 
(no match) 
(no match) 



'^(ESCAPE) Match any single character which is a special character as an 
actual character, such as spaces, dash, asterisk, @, //, commas, 
semicolons, and ^ . The ^ must preceed these special 
characters, Fot example: 



"A space 


B" 


= "A'^spaceB" 


"A*B" 




= "A^ *B" 


"AB-1" 




=:"AB^-1" 


"@7.5" 




= " ^(^7.5" 


ii| /s 2" 




_ M| /\/S 711 



Note: for double quotes used double, double quotes e.g. 'Vii" = " 
"hi" ". 

[6] The sixth element in the list specifies the coordinate location to scan for the 
data element. Note, be sure that the size of SNAPSIZE is not too large or too 
small. The coordinate specified is to be the center of the trapsize window. 

[7] The seventh element in the list specifies the transformation specifier. The 
argument is entered as a vector where the first value specifies the reflection (0 
= no reflection, 1 = reflected), second value specifies the angle (+n = relative, 
-n = absolute), and the third value specifies the magnification (+n = relative, -n 
= absolute). Currently Ihis is not implemented. A null must be specified. 

[8] The eigth element in the list specifies a vector indicating the path type, font 
number, and text justification. Currently this is not implemented. A null must 
be specified. 

[9] The ninth element in the list specifies the APN (Associated Property Number). 
This indicates that the elements being scanned, for example, a TEXT and a 
NODE of the same plex having the same fM-operty number and value will be 
updated with the new property value specified in the eleventh element of the 
list (see below). If the element is a TEXT, then the associated type (the 
TEXTTYPE which has been already specified in the third element of the list 
(see above) will be updated with the same value as a text string, 

[10] The tenth element in the list specifies the property number that is to be 
updated. For example, in a pin node the property number 11 gets the new 
property value and the text with the corresponding texttype 11 gets the value 
as a text string. 
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[11] The eleventh element in the list specifies the property value. 

[12] The twelfth element in the list specifies the PLEXMODE where, = 
PLEXMODE OFF and 1 = PLEXMODE ON. 



Examples: 



? US ELECT 5 6 0; 15 4; 11 58; ; ; (ce); ; ; 15; 11; "n"; (CR) 

n 
7 

Scan for the nearest TEXT and NODE element, turn on and draw the trapsize; scan 
for the layers 15 and ^ with datatype 11 or 58, or texttype 11 or 58; ; ; at the 
nearest coordinate location; ; ; with the APN (associated property number) 15; 
update property number 11; and update the textstring of the text witfi texttype 11; 
and turn off the plex mode. 

? USELECT IOTA ^; IOTA 1 5; 11 16; ; ; (ce); ; ; 17; 20; "n"; 

9 

Scan for elements 12 3 4 and draw trapsize; on layers 1 through 5; with types 1 1 and 
16; ; ; at this location; ; ; with APN 17; with property number 20; width is new 
property value; with plexmode off. 
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GPLII Function: GETEL 

Monadic Syntax: var := GETEL key(CR) 

Function: Assigns the element list of the element whose key is specified to the variable. 
The type of element specified determines which of these list elements will be included in 
the element list: 

(list[l])[l] element type 

(list [1]) [2] element key 

(list [1] ) [3] element bucket (Item number, -1 if identified, else -2) 

(list [1] ) [4] plex number, if present 

list [2] layer nymber (Boundary, Path, Text, Box or Node) else "NULL" 

list [3] datatype, texttype, boxtype, structype, else "NULL" 

list W width (+n), abswidth (-n), array shape or else "NULL" 

(list M )[1] if array shape, number of columns 

(list [4] ) [2] if array shape, number of rows 

list [5] structure name, text string, else "NULL" 

list [6] element coordinates or array extents 

list [7] transformation specifier property else "NULL" 

(list [7] ) [1] reflection (1 )/no reflection (0) 

(list [7] ) [2] angle (+ n)/ABSANGLE (-n) 

(list [7] ) [3] mag (+ n)/ABSM AG (-n) 

list [8] pathtype, or font number, else "NULL" 

list [9] property number 127 (user string), else "NULL" 

list [10] property number 126 (user integer), else "NULL" 

list [11] All other property values ( [property number] value [property number] 
value . . . ) 

PUTEL returns this list directly to the data base. Use NSELECT, MSELECT, DSELECT, 
CEKEY, IDKEYS, or GET to find the element's key. 

GEDELEMENT assigns the same list from an Item. 

Program Information: 

TYPEOF =LIST 

SIZE = N/A 

LENGTH = Minimum of 6 maximum of 1 1 

SHAPE = N/A 

Example: 

? EXPEL := GETEL ^3766(CR) 

7 

Assigns information above key ^3766 to EXPEL, for instance: 

? EXPEL(CR) 

3^3766-1 13 00 
1 
1 1 
1 
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GPLII Function: PUTEL 
Syntax: PUTEL elementlist(CR) 
Guidelines: 

1. A structure must be open for editing. 

2. The specified element cannot already have been gotten. 

3. The length of the element list determines the list elements that can be subscripted 
and changed. 

^. PUTEL is usually used in a GPLII program with the element list assigned to a 
variable. 

Function: Updates the element list of the specified element and places the modified list 
directly into the data base. 

See GETEL and CEKEY. 

Example: 

? ELIST := (GETEL (CEKEY)) (CE/CR) 

? ELIST [2] := 3 (CR) 

? PUTEL ELIST(CR) 
7 

Gets the specified element, explodes a copy of its element list, assigns the list to 
ELIST, changes the layer number to 3, and places the modified list into the data 
base. 
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EXAMPLE PROGRAMS 



MAGL IB.GS 

FINDANGLE.GS 

CM3EDIT.GS 

SCRIBE.GS 

PGTITLES.GS 



Magnifies boundaries, paths and text within a specified database 
library. The magnification occurs on a structure-by-structure basis. 
The magnification amount will be specified by the user. 

This program reports tine key number of any SREFs found with an 
absolute angle. The report will contain the structure in which the 
SREF was located with the key number of the SREF. 

This program allows Mhe user to edit text strings in tiie database 
much the way the "CH" command works with the GDSII text editor. 

This is an auto-scribe program that will generate a fracturable scribe 
structure that may be referenced on the device. 

This program will generate tiie necessary P. G. titles. A fracturable 
text font must first be built. 



: PRO GRAM NA^t: 
; CREATED BY: 



MAGL IB 
CHRIS MARTIN 



NILAOIC PROCEDURE MAGL IB 

EXTERNAL LI8RARY__NAME;CNT;MAG__AM0UNT;KEYS 

EXTERNAL STRUCTURE_LI ST 

SKIND 

VKINO 

VLAYER 

SLAY ER 

SDTYPE 

STTYPE 

SBTYPE 

SNTY PE 

SKINDOFF"SOAOND" 

VKINDOFF"SOAOND" 

LEVEL 

LIBRARY__NAME:=TEXTINPUT"ENTER LIBRARY NAME; 
IF LIBRARY_NAME <> "" THEN 

OPENLIB LIBRARY_NAME 

STRUCTURE LIST: =STRUCL I ST "-" 
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MA G_AMOUNT: =EXP INPUT "ENTER MAGNIFICATION AMOUNT: 
IF MAG_AMOUNT <> "" THEN 

CNT:=0 

DO 

CNT: =CNT + 1 

05TRUCT (STRUCTURE_LISTCCNT3) 

"NOW WORKING IN: <BRON> " , ( STRUCTURE_LISTCCNT3 ) , "<BROFF> " 

KEYS: =MSELECT 3 4 5 

IF KEYS <> "•' THEN 

DATAMAGNIFY MAG_AMOUNT; KEYS 

END IF 

UNTIL CNT = (LENGTH STRUCTURE_LIST ) 

ENDDO 
END IF 
END! F 

LEVEL 10 
CLOSELIB 

ENDS UB 



IProgram Nafne: FINDANGLE 

iCreated by: Chris Martin 

IDate: Dec. 4, 1983 

iRe I ease: 4. 0. 9 v6 

!Thi s porgram will search the data base library for all AREFs 

land SREFs that have been referenced with an ABSOLUTE ANGLE. 

IThis program will report the key numbers associated to the 

ISREFs and AREFs that are found. 

NILADIC PROCEDURE FINDANGLE 

EXTERNAL ABS KEYS; LIB; LIB_LIST; OLD_SKINDS; OLD_VKINDS; N; NN; KEYS 

EXTERNAL STRJC; KEY_NUM; KEY_INFO; NUM_KEYS; RAM; CNT; LOGS 

ABS_KEYS:="" 

LOGS : =LOG 

IF LOGS <> "" THEN 

ENDLOG 

END IF 

IF < FILEINFO-ABSLOG. LG") <> "" THEN 

FDELETE"ABSLOG.LG" 

LOG"ABSLOG" 

ELSE 

LOG" ABSLOG" 

ENDIF 



LIB: =TEXTINPUT "LIBRARY NAME: 

IF L IB <> "" THEN 

OPEN LIB LIB 

ELSE 

GOTO END IT 

ENDIF 
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"NOW MAKING A LIST OF STRUCTURE NAMES" 
"WORK INC.. PLEASE WAIT" 

M tl 

LIB_LIST.rSTRUCLIST "" 
OLD__SKINDS:=SKIND 
OLD^VKINDS: =VKIND 
SKIND"SOSEAOAE" 
VK1ND"S0SEA0AE" 

AUTO HOLD 
LEVEL 

IF L IB_LIST <> "" THEN 
<i II 

"A REPORT IS BEING GENERATED IN FILE: ABSLOG. LG<BEL>" 
II II 

N:rO 

DO 

N . =N + 1 

STRUC:=LIB_LISTCN3 
II II 

"NOW WORKING IN: <BRON> ", STRUC, "<BROFF>" 
OSTRUCT STRUC 

KEYS: =MSELECT 1 2 
IF KEYS <> "" THEN 
CNT:=(SI2E KEYS) 
NN:=0 
DO 

NN:=NN + 1 
KEY_NUM:=KEYSCNN3 
KEY~INFO:=GETEL KEY_NUM 
RAM:=KEY_INF0C7D "" 
IF {RAMC2:) < THEN 
ABS_KEYS:=ABS_KEVS UNION KEY_NUM 
KEY^NUM ~ "" 

EM)IF 
UNTIL NN = CNT 
ENDDO 
END IF 
UNTIL N = (LENGTH LIB_LIST) 
ENDDO 
END I F 

NUM_KEYS:=(SIZE ABS_KEYS ) 

"THERE WERE <BRON> "; NUM_KEYS; " <BROFF>KEY NUMBER{S) LOCATED" 
II II 

ENDIT: 

SKIND OLO_SKINDS 

VKIND OLD VKINDS 

LEVEL 10 

"PROGRAM COMPLETE<BEL>" 

ENDS UB : F I ND ANGLE . GS 
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NILADIC PROCEDURE CM5EDIT 

EXTERNAL CRD; LL; UR; KEY_NUMS; S12E_KEYS; N; KEYNUM 

EXTERNAL LIB, STR; TXT; KEYINFO; OLD; NEW; FIND; SIZE_OLD; SI2E_NEW 

EXTERNAL BEG; END; .SI2E_TXT; ANS 

EXTERNAL GLOB; NN; FIND_NUM 

EXTERNAL TO_DO; S2_FIND; NUMS; OCUR; FIND_NUMS 

LIB := OPENLIB 

IF < LENGTH LIB) = 3 THEN 

LI6:=LI6Cn 
END I F 

LIB := TEXTINPUT "Enter the library to open (",LIB, "): " 
IF (LIB <> ••") THEN 

OPENLIB LIB 
END I F 

STR : = OSTRUCT 

STR := TEXTINPUT "Enter the structure to open (",STR,"): " 

IF ( STR <> ""> THEN 

OSTRUCT STR 
END I F 

DO 

START: 

CRD := EXP INPUT "DIGITIZE COORDINATE" 

I F (CRD <> "") THEN 

LL := (CRDCn - 5), (CRD:23 - 5) 

UR := (CRDCn + 5), (CRDL2D + 5) 
ELSE 

GOTO FINIS 
END IF 

KEY_NUMS := MSELECT 5; "";"";"";""; LL, UR 
SIZE_KEYS := SIZE KEY NUMS 
IF (SIZEJ<EYS <> "") THEN 
N := 
DO 

N := N + 1 

IF (SIZE KEYS > 1) THEN 

KEYNUM := KEY NUMSCN3 
ELSE 

KEYNUM := KEY NUMS 
ENDIF 
ID KEYNUM 

ANS := TEXTINPUT "IS THIS THE CORRECT TEXT (Y)? " 
IF CANS = "" OR ANS = "Y") THEN 
IDCLEAR 

KEYINFO := GETEL (KEYNUM) 
TXT := KEYINFO LSI 
SIZE_TXT := SIZE TXT 
DO 

OLD := TEXTINPUT "OLD TEXT STRING: " 
UNTIL OLD <> "" 
ENDDO 

DO 

NEW := TEXTINPUT "NEW TEXT STRING: " 
UNTIL NEW <> "" 
ENDDO 

FIND := TXT INDICESOF OLD 
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SIZE^OLD =SIZE OLD 
SIZE NEW:=SIZE NEW 



NEW PART 



IF (SIZE FII^O) > 1 THEN 

TO_DO: rTEXTINPUT" LOCAL <BRON>( L ><BROFF> OR GLOBAL <BRON>{G )<BROFF> CHANGE. " 
IF TO_DO <> "" THEN 
SWITCH, TO_DO OF 
CASE"L": 

SZ FIND:= SIZE FIND 

NUMS:=IOTA SZ_FIND 

OOURrsEXP INPUT "WHICH OCCURANCE {",(CFORMAT NUMS ) , " > : 

IF OCUR <> ••" THEN 

FIND.=FINDC0CUR3 
EfOIF 

IF (FIND <> 1) AND (FIND <> (SIZE_TXT - (SIZE OLD - 1)>) THEN 
BEG := TXT CIOTA (1, (FIND - 1))3 "" 

END := TXT CIOTA ((FIND + SIZE_OLD), SIZE TXT) 3 
KEYINFOC53 : = (BEG, NEW, END) ~ 

PUTEL KEY INFO 
ELIF (FIND = 1) THEN 

END := TXT CIOTA ((SIZE_OLD + 1), SIZE_TXT)3 
KEYINF0C53 := (NEW, END) 
PUTEL KEY INFO 
ELIF (FIND = (SIZE TXT - (SIZE OLD - 1))) THEN 
BEG := TXT CIOTA (1, (FIND^NUM - 1))3 
KEYINF0L53 := (BEG, NEW) 
PUTEL KEY INFO 
END IF 



CASE"G": 

FIND_NUMS := FIND 
NUMS := SIZE FIND_NUMS 
NN := 
DO 

NN : = NN + 1 
KEY INFO := GETEL KEYNUM 
TXT := KEYINFOC53 

FIND := TXT INDICESOF OLD 
IF (SIZE FIND) > 1 THEN 

FIND := FINDCn 
EM3IF 

IF (FIND <> 1) AND (FIND <> (SIZE TXT - (SIZE OLD - 1))) THEN 
BEG .= TXT CIOTA ( 1 , (FIND - 1 ) ) 3 
END .= TXT CIOTA ((FIND + SIZE_OLD), SIZE TXT ) 3 
KEYINF0C53 := (BEG, NEW, END) 
PUTEL KEYINFO 
ELIF (FIND = 1) THEN 

END .= TXT CIOTA ( (SIZE_OLD + 1), SIZE TXT ) 3 
KEYINF0C53 := (NEW, END) "" 

PUTEL KEYINFO 
ELIF (FIND = (SIZE_TXT - (SIZE_OLD - 1))) THEN 
BEG := TXT CIOTA (1, (FIND_NUM - 1))3 
KEYINFOC53 .= (BEG, NEW) 
PUTEL KEYINFO 
END IF 
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BEG: ='•" 

END: ="" 

UNTI L NN = NUMS 

ENDDO 

ENDS WITCH 

ELSE 

GOTO START 
END I F 

ELSE 



IF (FIND <> 1) AND (FIND <> (SIZE_TXT - (SIZE_OLD - !>)) THEN 
BEG := TXT CIOTA (1, (FIND - lT)3 
END := TXT CIOTA ((FIND + SIZE_OLO), SIZE_TXT): 
KEYINFOC53 := (BEG, NEW, END) 
PUTEL KEY INFO 
ELIF (FIND = 1) THEN 

END := TXT CIOTA ((SIZE_OLD +1), SIZE_TXT>3 
KEYINF0C53 := (NEW, END) 
PUTEL KEY INFO 
ELIF (FIND = (SIZE_TXT - (SIZE_OLD - 1)>) THEN 
BEG := TXT CIOTA (1, (FIND_NUM - 1))3 
KEYINFOC53 := (BEG, NEW) 
PUTEL KEYINFO 
ENDIF 
END IF 
ELSE 
IDCLEAR 
ENDIF 



UNTIL (N = SIZE.KEYS) 
ENDDO 
ELSE 

"NO TEXT FOUND" 
GOTO START 
ENDIF 
UNTI L (CRD = "") 
ENDDO 

FINIS: 
ENDS UB 
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IPROGRAM NAME: SCRIBE. GS 

: CREATED BY: CHRIS MARTIN 

'.DATE: NOV. 29, 1984 

:THIS is an AUTO-SCRIBE PROGRAM. 

N I LA Die PROCEDURE SCRIBE 

EXTERNAL CNT; XDSU, YDSU; DELO; DELS; XI ; X2; X3; X4; Yl; Y2; Y3; Y4 

EXTE RNAL LIB; STRUC; INF; XDSM; SWID; SCF; LAYS; NLAY; CLAY; DELIN; DELI 

EXTERNAL CORD; YDSM; CORDS; PTS 

PTS; =0 

AUTO HOLD 

LIB: =0PENL1B 

IF L IB = "" THEN 

DO 

LI B:=TEXTINPUT"LIBRARY NAME: 
II II 

UNTIL LIB <> "•' 

ENDDO 
ELSE 

LIB: =LIBCn 
END I F 

STRUC: =TEXT1NPUT"SCRIBE STRUCTURE NAME (SCRIBE): " 

IF STRUC = "•' THEN 

STRUC: ="SCR1BE" 

END IF 

IF < "" <> STRUCLIST STRUC) THEN 
II 11 

"<BRON><BEL>( {(ERROR)) )", STRUC, " ALREADY EXI STS<BROFF>" 
GOTO FIN 
END IF 

XDSM :=EXP I NPUT"F I NAL X DIMENSION IN MILS: 
IF XDSM = ••" THEN 

GOTO FIN 
END I F 

YDSM :=EXP I NPUT"F I NAL Y DIMENSION IN MILS: " 
IF YDSM = "•' THEN 

GOTO FIN- 
END IF 

SWID :=EXPINPUT"FINAL SCRIBE WIDTH IN MICRONS (100): " 
IF SWID = •"• THEN 

SW ID:sl00 
END IF 

SCF: =EXPINPUT"SCALE FACTOR (1): 
IF SCF = •"• THEN 

SCF:=1 
END IF 

LAYS :=EXP INPUT"SCRIBE LINE LAYERS (I.E. , 1 2 3): " 
IF LAYS = "•' THEN 

GOTO FIN 
END I F 
NLAY :=SI2E ,LAYS 

LPS: 

DELIN:=EXPI^PUT"FINAL DELTAS IN SAME ORDER AS ABOVE (0): 

IF DELIN = "" THEN 

DELIN: sNLAY RESHAPE 
END I F 

IF NLAY <> (SIZE DELIN) THEN 
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"< BRONX ( (ERROR) > )N0. 
GOTO LP6 
ENDl F 



OF DELTAS MUST BE EQUAL TO NO. OF LAYER5<BR0FF> 



CLAY .=EXP1NPUT"CH1PS SIZE 
IF CLAY = "" THEN 

CLAY: =63 
ENDl F 



REFERENCE LAYER <63> 



XDSU 

YDSU 

DELO 

DELS 

X4 

XI 

Y4 



= .25<»( FLOOR ( {XDSM*(50. 8)7.SCF)) 
= .25*»< FLOOR ( <YDSM*50. 8)V.SCF) > 
= . 25«(CEIL1NG < (SWlD*f2)7.SCF)> 
= .25<< (FLOOR ( (DEL1N#4)V.SCF) > 
+ DELO 



;: = XDSU 
: = - X4 

I: = YDSU + DELO 
Yl: = - Y4 
PUTALL 

BSTRUCT STRUC 
DATATYPE 
STRA IGHT 
BOUNDARY 
LAYER CLAY 



CORDS; =2 

RT CORDS 

CNT: =0 

DO 

CNT; =CNT 



2 RESHAPE (-XDSU, -YDSU, XDSU, YDSU) 



+ 1 



LAYER LAYSCCNT3 

DELI :=DELO + DELSCCNT3 



X3 
X2 
Y3 
Y2 



= XDSU - DELI 
= - X3 

r YDSU - DELI 
= - Y3 



PTS: =X1, Y1,X4, Y1,X4, Y4,0, Y4,0, Y3,X3, Y3,X3, Y2,X2, Y2 

PTS: =13 2 RESHAPE (PTS, X2, Y3, 0, Y3, 0, Y4, XI , Y4, XI , Yl ) 

CE PTS 

PUT 

UNTI L CNT = NLAY 

ENDDO 

TSTRUCT 

IF < ••" <> FILEINFO "SCRIBE. L6") THEN 

FDELETE "SCRIBE. LG" 
ENDl F 

LOG" SCRIBE. LG" 
"SCR IBE PROGRAM" 



"LIBRARY NA^E: ",LIB 

"SCR IBE STRUCTURE: ", STRUC 
II II 

"DATABASE DIE SIZE: ",(CFORMAT ( XDSU7.12. 7) ) , " X ",<CFORMAT ( YDSU7.12. 7) ) , " MILS" 

".(CFORMAT (XDSU<t2)>," X ".(CFORMAT (YDSU*(2))," MICRONS" 
"LAYERS: ";LAYS 
"DATABASE DELTAS: ";DELS 
"DIE SIZE REF. LAYER: ";CLAY 
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"SCALE FACTOR: ";SCF 
■I II 

ENDL OG 

FCOPY "SCRIBE. LG"; "SLPT" 

FIN: 

"END OF PROGRAM" 

ENDSUB 



NILADIC PROCEDURE PGTITLES 

EXTERNAL LIB; STR_NAME, SK; VK; SL; VL; N; INPUT_LAYERS 

EXTERNAL INPUT_LAYER; DEV_NAME; MASK_ID; MASK IDS 

EXTERNAL TEXT SIZE; TEXT_MAG; TEXT CRD; T0DAy7pG_LAYER; PG TEXT 



SK 


rSKIND 




VK 


= VKIND 




SL 


= SLAYER 




VL 


= VLAYER 




SKIND 




VKIND 




SLAYER 




VLAYER 




LIB: =OPENLIB 




IF L IB = "•• THEN 




00 




LIB:=TEXTINPUT"LIBRARY NAME: 


II 


UNTIL LIB <> "•' 




ENDDO 




OPENLIB LIB 




ENt 


)I F 





STR_NAME: =OSTRUCT 

IF STR_NAME = "" THEN 

DO 

STR_NAME:=TEXTINPUT"STRUCTURE NAME: " 

UNTIL STR NAME <> "" 

ENDDO 

OSTRUCT STTR^NAME 

VI EW 
END IF 

BIND FONTS 3;"PGF0NT" 
DEFMODE 



I NPUT_LAYERS:=EXP INPUT" INPUT FIRST LAYER NUMBER: 
IF INPUT LAYERS <> "" THEN 

DO 

INPUT_LAYER:=EXP INPUT" INPUT NEXT LAYER NUMBER <END> 

IF INPUT_LAYER <> "" THEN 

INPUT_LAYERS:rINPUT_LAYERS; INPUT_LAYER 
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ENDIF 

UNTIL INPUT_LAYER = 
ENDDO 
END I F 



DO 

DEV_NAME . =TEXT I NPUT"DEV I CE NAME : 

untTl DEV^NAME O "" 

ENDDO ~ 

DEV_NAME.=DEV_NAME, " - " 

MASK IDS: =TEXT INPUT-ENTER MASK ID FOR LAYER ".^ 

, <CFORMAT INPUT_LAYERSCn>, " : " 
IF MASK_1DS <> "" THEN 

N. =1 

DO 

N: =N + 1 

MASK_ID:=TEXTINPUT"ENTER MASK ID FOR LAYER ",^ 
,<CFORMAT 1NPUT_LAYERSCN]), •' : " 

MA SK_I DS : =MASK_I DS , MASK_I D 

UNTIL N = < LENGTH INPUT_LAYERS ) 

ENDDO 
END I F 



TEXT_SIZE.=EXPINPUT"TEXT HEIGHT (25): 

IF <TEXT_SI2E = "'•) OR (TEXT_SIZE = 25) THEN 

TE XT_MAG : =1 
ELSE 

TE XT_MAG : =TEXT SIZE */. 25 

TEXT MAG:=1 DROUND TEXT_MAG 
END I F "" 



ITEM 

TEXT 

MAG TEXT_MAG 

ANGLE " 

FONT 3 

TJUST "B"; "C" 

DO 

TEXT _CRD:=EXP INPUT" INDICATE BOTTOM/CENTER TITLE LOCATION: 

UNTI L TEXT_CRD <> "" 

ENDDO 

TODAY :=DAY 

N:=0 

DO 

N:-N + 1 

PG J, AYER : = I NPUT_L A YERS C N 3 

PG_TEXT:=DEy_NAME,MASK_lDSCN3," - ",(CFORMAT TODAY) 

LAYER PG LAYER 
ENTERTEXT PG_TEXT 

CE TEXT_CRD 
PUT 
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UNTIL N = (LENGTH INPUT__LAVERS > 
ENDD 

VKIND VK 
5K1ND SK 
VLAYER VL 
SLAYER SL 

"PROGRAM COff>LETE" 
II II 

ENDSUB 



IV-20 



SECTION V GPL I I INTERFACE TO THE BACKGROUND 30B SYSTEM 

Page 

GPL I I INTERFACE TO THE BACKGROUND 30b SYSTEM V- 1 

30BPARAMS V-2 

Program: SIZIT.GS V-13 

Program: AUTOPLOT.GS V-2^ 
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GPLII INTERFACE TO THE BACKGROUND 30B SYSTEM 



All of the various forms of background jobs (plots, PCs, DRCs, etc.) may be entered into 
the job system by GPLII programs. The syntax of JOBCREATE will be one argument in 
the form of a list with three character vectors. 

The first character vector is either the job template (.3T) file to be used or a user file 
which contains a previously saved job. 

The second argument is either a null character vector (" ") to run the job or the name of a 
user file in whidi to save the job. Said user file may already exist. If so, note that it will 
be overwritten even though it may have a P attribute. 

The third character vector is the parameter collector. This employs strange and different 
syntax than that with which the GDSII operator is familiar. 



Example: 



parameter CO I lector=' parameter' 
INFORM_LIBRARY='NEWLIB. DB ' 
MAG TAPE LOADEDr'Y' 



Parameters collectors are the key words which means they are reserved for a particular 
application. Each collects a different parameter for the job. Then they are concatenated 
and fed to JOBCREATE in the third position of the argument. 

Only parameters which have no default value are absolutely required. For example, when 
running a P. G. tape, one could omit the scale factor and it would default to 10, but could 
not omit the library name or the structure name. 

To run a Job. JOBCREATE "XCLl"; ""; "CMD_LINE= 'DAILYDUMP '" 

To save a Job: JOBCREATE "XCLI"; "DAILY. JB"; "CMD^LINEs 'DAILYDUMP '" 

To edit a Job: JOBCREATE "DAILY. JB"; "DAILY. JB"; '•CMD_LINE= 'DAILYSAVE ' " 

To run to saved job: JOBCREATE "DAILY. JB" 
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30BPARAMS BACKGROUND INTERFACE SECTION 

Syntax; 30BCREATE "jobfilel.QT"; "jobfile2.QT"; "Keyword= 'new arg'" (CR) 

Function: 

This Helpfile describes the format of the parameter list used for JOBCREATE. 

Existing parameters prompted for by 30BCREATE can be specified by using the 
appropriate Keyword. Keywords (listed below by J(±>type) specify parameters, or 
parameter changes, for a particular job. 

In the in-line format described by 30BPARAMS, JOBCREATE will accept up to 3 
arguments, entered on the command inpwt line. Arguments are separated by 
semi-colons, and are enclosed in double quotes if they are in strings. A keyword must 
be separated from the argument by an equal sign ( = ). Spaces and CR may be used as 
separators within the parameter list, but not within a Keyword or argument. 

The first argument is the name of the jobtype file to be executed. 

The second argument is the name of the new Jobtype file. This file will contain a 
copy of the original job, but will reflect the changes specified in the third argument. 
This allows the parameters of the existing job to be changed in a new file while a 
copy of the original format is retained. If a null string is entered for the second 
argument, and the Job Monitor is running, the job will be immediately started. 

The third argument contains the keywords and arguments to specify the changes to 
the existing job file. To use more than one keyword or argument after the third 
argument, assign the third and other desired arguments and keywords to a variable 
and. use the variable in place of the third argument. 

Example: A GDS1T02 job was set up in job file G2.QT. The following command is issued: 
JOBCREATE "G2. QT"; "GT. QT"; "GDSl^L IBRARY= 'CHIPSII ' " <CR> 

The job specified in G2.QT is copied into file GT.QT with a GDS Library of CHIPSII. 
"GDS1_LIBRARY" is the keyword, "CHIPSII" is the argument. 

Keywords and their arguments are listed below: 

GENERAL JOB PARAMETERS 

"PRIORITY" 

Changing this parameter will change the priority of the job. The 
correct format of the argument is the letter A, B, C, or D. 
<"PRIORITY='A'") 

"JOB__NAME" 

The Jobname should be a string of up to 10 characters 
< " JOB_NAME= 'RULE5CHECK ' " ) 

"MAG__TAPE_LOADED" 

The argument should be Y or M depending on whether the mag tape 
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is loaded. ("MAG TAPE LOADED='Y"') 



♦t^^PLCTTER AND PG OUTPUT PARAMETERS*f*f 

"LIBRARY" 

Use this parameter to enter the library for all Plotter, PG, and 
Rulescheck jobs. GD51T02, GDS2T01, Inform, and Outform all have 
specific parameters to their programs to enter the libraries 
with. <5ee INFORM and OUTFORM Paramaters below. > 
(LIBRARY = 'G00DIC5' > 

"STRUCTURE" 

Use this parameter to enter structure names for the PG, PLOT, 
Rulescheck Jobs. GDS1T02, GDS2T01, Inform, and Outform have 
their own specialized parameters. (See INFORM and OUTFORM 
parameters below. ) < "STRUCTURE= '34 '" ) 

"MIR" 

MIR will mirror data about the Y- parallel axis ("MIR") 
"ROT" 

ROT will rotate data 90-degrees clockwise ("ROT") 
"CEN" 

CENwill automatically center the plot ("CEN") 
"PLTO" 

This simply selects plotter option PLTO ("PLTO") 
"PLTl" 

This simply selects plotter option PLTl ("PLTl") 
"PLT2" 

This simply selects plotter option PLT2 (••PLT2"> 
"NOPLT" 

This simply selects plotter option NOPLT ("NOPLT") 
"MTO" 

This simply selects plotter option MTO ("MTO") 
"MTl" 

This simply selects plotter option MTl ("MTl") 
"MT2" 

This simply selects plotter option MT2 ("MT2") 
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"NOMTA" 

This simply selects plotter option NOMTA < no magtape - "NOMTA") 

"NOOPT" 

This cancels all plotter options except Magtape and Plotter 
options ("NOOPT") 

"UPDATE" 

This updates an existing tape ("UPDATE") 

"AUTOGO" 

This option means there will be no pause in the on_line plotter 
("AUTOGO") 

"SEGMENT" 

Number of groups per exploder segments 
( "SEGMENT= '4 '" for A groups ^er segment) 

"DIAG" 

This option means diagnostics only - no tape. ("DIAG") 

"EROV" 

This option means error override - write tape in spite of errors! 
("EROV") 

"LAYERJSROUPS" 

This is how you enter the layer groups for a Job. If you entered 
"LAYER_GR0UPS=l-4 5 6 7-12; 14 15 16-20 22; 24-28 30" there would 
be three plotter passes: «1 - 1-12, «2 - 14-20 22, «3 - 24-28 
30. 

"WINDOW" 

The plot window x and y coordinates. 
("WIND0W=1 -1; 10 10") 

note: TAB is Illegal in this case. 
"SCALE" 

The scalefactor. ( "SCALE=100" ) 

♦^♦♦PARAMETERS FOR PG AND E-BEAM READ-IN*^*f 
"PG_LIBRARY" 

Library name to receive PG data ( "PG_L1BRARY= ' 1C5 '" ) 
"PG__STRUCTURE" 

Structure name to receive PG data C "PG_STRUCTURE=: '34A '" ) 
"PG_SCALE" 
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Scale at which PG tape was written ("PG__SCALE=400" ) 

"PG_USE__TAPE__LAYERS" 

This tells whether or not to use the layer numbers found on the 
tape when reading a David Mann PG tape. ( "PG_USE_TAPE_LAYER5= ' Y "' 
means use the layer numbers found on the tape) 

'•PG_LAYER_I NCREMENT" 

Layer number increment for PQ read-in. The layer number 
receiving the data will be the tape file number + N, where N is 
the argument. ( "PG_LAYER_INCREMENT=20" > 



^^ INFORM PARAMETERS ^* 

" I NF0RM_1 NPUT__F I LE " 

This is the input file, from which the progrm is to receive data. 
It consists of a tape drive and a file number. 
( " INFORM__I NPUT_F I LE= ' MTO : '" ) 

"INFORM_LIBRARY" 

This is the library name to receive data. 
( " INFORMAL I BRAR Y= ' QAPLOTL IB"*) 

"INF0RM_LIB_SI2E" 

The library to receive data should be at lease 200 user units 
in size, ( " INF0RM_LIB_SIZE=200" > 

" I NF0RM__DBU_S 1 2E" 

This is the size of database units for output. 
< " INFORM_DBU_S I ZE= 'MIL'") 

"INFORM_STRUCTURES" 

These are the specific structures to be converted. 
< •• INFORM_STRUCTURES= '- "• ) 

" I NFORM__USER_DBUS" 

This is the size of database units per user units. 
( " INFORM_USER_DBUS= ' 1 000 ' " ) 

••INF0RM__0PTI0NS" 

These options are fully described in the INFORM helpfile. 

( " INFORM_OPT I ONS= 'UV ' •• ) 

Note: Use with extreme caution; may cause system crash. 



ii¥: OUTFORM PARAMETERS #*♦ 
"OUTFORM_L I BRARY" 
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This is the library to be converted. ("OUTFORM^LIBRARYr ' IC5 '" > 

"0UTF0RM_F1LE" 

The library name which is output to the stream file into the LIBNAME 
record. Refer to STREAM. DC for more information. 
( "OUTFORM_F I LE= ' SOMENAME ' " ) 

"OUTFORM_OUTPUT_FILE" 

The output file consists of a tape drive and a file number. 
( "OUTFORM_OUTPUT_F ILE= 'MTO : '" ) 

"0UTF0RM_OPTIONS" 

These are described in detail in the OUTFORM helpfile. 
< •' OUTFORM_OPT I ONS= ' V " ) 

"OUTFORM__STRUCTURES" 

These are the specific structures to be converted. 
( "OUTFORM_STRUCTURES= '- ' " ) 

All t.hP ahnw» naramptor^ arp rtP«;prihPri in rfptail in thp OUTFOPM Mp 1 n^ 1 1 p 



*^ STREAMOUT PARAMETERS ♦Ht 

"STREAMOUT_LIBRARY" 

This is the library to be converted. ( "STREAMOUT^LIBRARYr ' IC5 '" ) 

••STREAMOUT_FILE" 

The library name which is output to the stream file into the LIBNAME 
record. Refer to STREAM. DC for more Information. 
( "STREAMOUT^F ILE= 'SOMENAME ' " ) 

"STREAMOUT__OUTPUT_FILE" 

The output file consists of a tape drive and a file number. 
( "STREAMOUT^OUTPUT^FILEs 'MTO: ' " ) 

••STREAMOUT_OPTIONS" 

These are described in detail in the OUTFORM helpfile. 
<"STREAMOUT_OPTIONS='V'") 

"STREAMOUT_STRUCTURES" 

These are the specific structures to be converted. 
< "STREAMOUT_STRUCTURES=: '-'••) 

''STREAMOUT_MASK" 

Specifies the layers and data types as two vectors separated with 
a semi-colon. Each set of layers and data types defines one mask. 
Several STREAMOUT__MASK parameters may be specified, and in this case 
the first parameter modifies the first mask, etc. 
(•'STREAMOUT__MASK='i 4-6; 1-5'") 
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All above parameters are described in detail In the STREAMOUT Helpfile 

^♦tPARArCTERS FOR E-BEAM OUTPUT**** 

NILADIC COMMANDS 

"INVERT" 

Acceptable only with a Toshiba Job. This option produces 
reverse image output for the layer specified. ("INVERT") 

"RETICLE" 

Acceptable only with a Toshiba Job. This option puts the output 
to reticle rather than master. ("RETICLE") 

"DOT_SIZE" 

Acceptable only with an ETEC job. This option specifies the 
output dot size in microns. ( "D0T_SI2E=. 25" ) 

"STRIPE_HEIGHT" 

Acceptable only with an ETEC Job. This opt ion specif ies the 
output stripe height in address units. ("STRIPE_HEIGHT=256" ) 

MONADIC COMMANDS 

"CHIP = n m" 

Acceptable only with a Toshiba Job. Specifies the size of the 
largest chip to be plotted, where n and m are chip X and Y 
dimensions, respectively. If used, this option must be entered 
after WINDOW and SHIFT options if they are desired. Note: If 
in-line JOBCREATE is used only to save the Job descriptor file 
(i.e., the second option argument Is not " "), then the CHIP 
option will be overwritten by a default. ("CHIP = 20 25") 

"COMMENT n = <character string>" 

Acceptable with Toshiba and STIFMI Jobs. Allows user to assign 
a comment to each layer group (n). The character string may 
contain up to 14 characters. ("COMMENT I = GRPl CMNT") 

"COMPACT" 

Outputs structure references and arrays in compact format. 
("COMPACT") 

"FNAME n = <f i lename>" 

Acceptable only with a Toshiba Job. Allows users to assign a 
filename to a layer group (n). The maximum number of characters 
for the filename is 12. ("FNAME 1 = GPRINAME") 

"INV n = <answer>" 

This option produces reverse image output for the layer group, 
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(n), specified. "Answer" can be either yes (Y> or no (N). 
If used, this option must be entered after "Layer Groups" 
and "INVERT". ("INV 1 = Y") 

"SHIFT = n ro" 

Acceptable only with a Toshiba Job. Shifts all input coordinates 
by a specified distance <n) and (m) where n and m are displacements 
along the X and Y axes in microns. If used, this option shoud be 
entered after "ROT", if rotation is desired. ("SHIFT =2 3.5") 

"T05HIBA__M0DE = <mode>" 

Acceptable only with a Toshiba Job. The mode may be specified as 
A, B or C. This command should be entered before the "Scale" 
option. ("TOSHIBA MODE = A") 

"DTYPE = <datatypes>" 

Acceptable only with ETEC jobs. This option selects mask data 
by datatype. Valid datatypes range from to 63. The format 
of datatype is the same as the format of arguments In "Layer 
Groups", except that semicolons (;) are not permitted. The 
single list of datatypes applies to all layer groups. 
( •'pTvpr = 0-22 23") 

"MODE 12" 

Acceptable only with an ETEC Job. Causes output to be in ETEC 
I/II format, rather than extended address format. ("M0DE12") 

"OVERSIZE n = m" 

Acceptable only with an ETEC job. This option specifies the amount 
of oversizing (In microns) to be done on each boundary or path 
for each layer group. The layer group number is specified as n, 
and m is the amount of oversizing. This option should be entered 
after "Layer Groups" and "DOTSIZE" if these two options are desired 
("OVERSIZE 1 = .5, OVERSIZE 2 = .75") 

"PTYPE = <pathtype5>" 

Acceptable only with an ETEC Job. Selects data by pathtype. This 
option will affect path and text data that has the specified 
pathtype(5). Valid pathtypes are 0, 1 and 2. Note: Pathtype 
1 is plotted as pathtype 2. ("PTYPE = 2") 

"TTYPE = <texttypes>" 

Acceptable only with an ETEC Job. This option selects data by 
texttype. Valid texttypes are to 63. The format of texttypes is 
the same as that of datatypes. (TTYPE ~ iO-12 15) 

"UPDATE" ' 

Updates a previously created tape by adding new data to the end of 
it and updating directory information. ("UPDATE") 



M**PARAMETERS FOR PHOTOPLOTTERS OUTPUT^lf 
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"BED_OFFSET = n m" 

Acceptable only with a Photop letters job. Sets Bed Offset option 
where n is the offset of X and m is the offset of Y, in inches 
or centimeters. ("BED OFFSET = 5 3.5"> 

"FILM_SIZE = n m" 

Acceptable only with a Photop lot ters job. This option sets the 
film size. n and m are the bed size in inches or centimeters. 
("FILM SIZE = 65 45") 

"FLASH_SORT = <n>X or = <n>Y 

Acceptable only with a Photoplotters job. Sets flash band sort 
width and direction where n is the width. ("FLASH SORT = '2X'") 

"FORMATTER = <formatter filename>" 

Acceptable only with a Photoplotters job. This option sets the 
name of the formatter, if it is different from the default. 
("FORMATTER = AlFORMAT") 

"T00L_DESCR1PT0R = <character string>" 

Acceptable only with a Photoplotters job. The character string 
in this option sets the name of the Tool Descriptor filename if 
it is different from the default. ("TOOL DESCRIPTOR = ITOOLDES") 



*t*GDSlT02 PARAMETERS ♦** 
"GDS1_LIBRARY" 

For the GDSl Library ( "GDS1_LIBRARY='WARGAMES'" ) 
"GDS2_LIBRARY" 

For the GDS2 Library ( "GDS2_Llbrary=' IC5'" ) 

"GDS1_UN1T_S1ZE" 

GDSl Physical Unit Size - M, CM, MM, MICRON, A, INCH, MIL 
(GDS1_UNIT_SIZE='4 MICRON'") 

"GDS1_LAYERS" 

Layer number of conversion ( "GDS1_LAYERS= '4 '") 
"LI NESTABLE" 

Linetable name ( "LINE_TABLE= 'GRAPEFRUIT. LF '"> 

*t^GDS2T01 PARAMETERS ♦fr** 
"GDS2T01 LIBRARY" 
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GDS2 Library. ( "GDS2T01_LIBRARY= ' IC5 '" ) 
"GDS2T01_STRUCTURE" 

GDS2T01 Structure mask. (••GDS2T01_STRUCTURE= '34- "• ) 

"GDS2T01_0RIGIN" 

Coordinates to become origin of GDS data. 
<"GD52T01_0RIGIN=400 400") 

"GDS2T01_0RIGIN" 

Coordinates to become origin of CDS data. 
("GDS2T01_0RIGIN=400 400") 

"GD52T01_LAYERS" 

Layers to be converted. 
("GDS2T01__LAYERS='l-5 9 18 21-29'") 

"GDS2T01_UN I T_S I ZE" 

GDSl physical unit size - M,CM, MM< MICRON, A, INCH, MIL. 
("GDS2T01 UNIT SIZE = '5 MICRON'") 



♦t* APPLT0GDS2 KEYWORDS **** 

For a description of each prompt, see the Helpflle Annex APPLT0GDS2 

"APPL_LIBRARY" 

Same as "APPLE Library File" In interactive mode. 
<"APPL_LIBRARY='MTO: 0'") 

"APPL_GDS2_LIBRARY" 

Same as prompt "GDS2 Library Name". 
( " APPL_GDS2_L I BRARY= ' APPLEL IB'") 

"APPL_DB4" 

Number of Apple Database units per Physical Unit. 
("APPL_DB4='30'") 

"APPL_UNIT_SIZE" 

Same as "APPLE Physical Unit Size." 
<"APPL_UNIT__SIZE='M,MM,CM,MICRON, A INCH, MIL'") 

"APPL_LAYERS" 

Same as "Layer Number." ( "APPL_LAYERS='3, 4, 11 '" ) 
"APPL_STRUCTURE_MASK" 

Same as "Structure Mask." ( "APPL_STRUCTURE_MASK='- '" ) 
"CREATE__BINS" 



Same as "Create Apple Bins Data." < "CREATE_BINS= 'Y '" ) 
"EXPLODE_FX" 

Same as "Explode FX Rectangles?" ( "EXPLODE_FX= 'N '" ) 



**t READMP2D KEYWORDS ^^ 

"BANNItviG_IN_FILE" 

Name of tape Input file for graphics. 
< "BANN I NG__I NPUT_F I LE= ' MTO : 1 ' " > 

"STREAM_OUT_FILE" 

Name of disk or tape output file for graphics. 
("STREAM_0UT_FILE='MT1:0'") 

"SAVE_P1NS" 

Determines whether or not to save the pin data file on disk. 
("SAVE_PINS='Y'"> 

"PIN_IN_FILE" 

Name of tape input file for text. ( "P1N_IN_FILE= 'MTO. '" ) 

"PIN_OUT_FILE" 

Name of disk output file for text. 

( "P IN_OUT_F I LE= ' BACKGROUND : STREAMF I LE . SF ' " ) 

"MP2D_UNITS" 

Metric (M) or English (E) data. < "MP2D_UNITS= 'E '" > 
"MP2D_SCALE" 

A positive number to determine scale factor. ( "MP2D_SCALE='l. 0'" ) 



*♦* CLI DUMP AND LOAD PARAMETERS ^^ 
"DUMP__TO_FILE" 

The section of the tape to receive dump. ("DUMP^TO^FILE^ 'MTO: 2'" ) 

"DUMP_FILES" 

The files to be dumped. ( "DUMP_FILES= 'FILES. <AL, SR, BK, HP> '" ) 
"LOAD_nROM_FILE" 

The section of the tape to Load from. ( "LOAD_FROM_FILE= 'MTO: 2 ' " ) 
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•'LOAD_FILES*' 

The files to load. ( "LOAD_FILES= 'ROOTIE. RT TOOTIE. RT ' " ) 

M+t PARAMETERS FOR STICKS SPACER ♦«♦* 
"SPACER_1N_LIB" 

Spacer Input Library Name. < "SPACER_IN_LIB= 'GDSI I : CMOSSLIB. DB '" ) 
"5PACER_0UT_LIB" 

Spacer Output Library Name. ( "SPACER_OUT_LIB= 'GDSI I : CMOS$LIB. DB '" ) 
"SPACER_IN_STRUC" 

Input Structure Name. ( ••SPACER_IN_STRUC= 'DECODER '" ) 
"SPACER_OUT__STRUC" 

Output Structure Name. < "SPACER_OUT_STRUC= 'DECODERS '" > 
"SPACER_PASS_SEQ" 

Spacing Pass Sequence. ( "SPACER^PASS^SEOs 'LD '•' ) 

"SPACER_TERM" 

Terminate if Overconstraint Found In First Pass. 
<"SPACER_TERM=N") 

"SPACER_DIAG" 

Diagonal Check in Last Pass. ( ••SPACER_DIAG=N" ) 
••SPACER_VERIFY" 

Verify Input/Output Structure. ( ••SPACER_VERIFY=N" ) 

^^ PARAMETERS FOR BACKGROUND CLI JOBS *** 

"CMD_LINE" 

A command line to execute. 

(•'CMD_LINE='LOG;GMEM; ENDLOG; RENAME LOG. CM MINE. SR '" ) 

♦t* Parameters for the DESIGN RULES CHECK job (DRC) i^t^ 

"LIBRARY" 

The library file to do the design rule checking in. 
("LIBRARY='IC'") 

^'STRUCTURE" 

The structure on which the design rule checks are to be 
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performed. ( "STRUCTURE= ' IC5 '" ) 

"ERRLIB" 

The library to which the errors from the design rules check will 
be put. <"ERRLIB=MCER'") 

"ERR5TRUCT" 

The structure to which the DRC errors will be placed. 
( "ERRSTRUCT= ' I C5_ER '" ) 

"WINDOW" 

The Window in which the design rule checks will be done. 
("WINDOWS -1 4.89; 3.17 10") 

"DRYRUN" 

Whether to go ahead with the design rule checking after the 
compilation ( "DRYRUN= 'Y '" ) or "DRYRUNr 'NO '" > or ( "DRYRUN= 'N ' " > 
or ("DRYRUN='YES'") 

"MAC_FILE" 

The file containing the Mask Analysis Commands, which is to be 
compiled (and executed if not a dry run) ( "MAC_FILE= 'CHECKIT '" ) 
Note: the extension ".ML" is assumed if no extension is given. 



Example programs using IN-LINE 30B PARAMETERS: 



Program Name: SI2IT 
Created by: Chris Martin 
Date: Feb. 17, 1984 

Re 1 ease: 4.1.0 

Purpose: This program will write the necessary GPLIl 

files for UNDERSIZING and OVERSIZING through 
DRC. 

Revised: April 4, 1985 

The program will now write the necessary JOBCREATE and offer a 

printout of the program to the user, 

REQUIREMENT: A JOBCREATE"DRC" must be set up prior to running this 
program. It must be saved in a file called: DRCJOBS.JT. The jobcreate 
should call for 'NO' DRC Parameters. A dummy name may be used for the 
name of the GPL Procedure. 
SEE JOBCREATE EXAMPLE AT END OF PROGRAM 

NILADIC PROCEDURE SI21T 

EXTERNAL CHOICE 
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EXTERNAL 


OVSZ_DATA 


EXTERNAL 


UNDRSZ_DATA 


EXTERNAL 


OV_INPUT LAYER 


EXTERNAL 


OV_DATA 


EXTERNAL 


N 


EXTERNAL 


INPUT_LAYER 


EXTERNAL 


F1LE_NAME 


EXTERNAL 


ANS 


EXTERNAL 


DATA 


EXTERNAL 


OV_TITLE 


EXTERNAL 


OVJ. I NE 


EXTERNAL 


OV_LINES 


EXTERNAL 


XX 


EXTERNAL 


NN 


EXTERNAL 


UNDRS2 LAYERS 


EXTERNAL 


UNJ)UTPUT_LAYERS 


EXTERNAL 


AMOUNT 


EXTERNAL 


X 


EXTERNAL 


CO^P_LAYER 


EXTERNAL 


AMNT 


EXTERNAL 


ONE_HALF AMNT 


EXTERNAL 


UN OUT LAYER 


EXTERNAL 


TEST 


EXTERNAL 


OVSZ LAYERS 


EXTERNAL 


OV_LAYER 


EXTERNAL 


0V_PUTPUT_LAYERS 


EXTERNAL 


OV_AMOUNT 


EXTERNAL 


OV_MNT 


EXTERNAL 


OV_AMNT 


EXTERNAL 


OV LAY 


EXTERNAL 


LIhES 


EXTERNAL 


SPACES 


EXTERNAL 


SIZE SPACES 


EXTERNAL 


TITLE 


EXTERNAL 


LI^E 


EXTERNAL 


OLAY 


EXTERNAL 


OV_MASK 


EXTERNAL 


LAY 


EXTERNAL 


OV_MASK FILES 


EXTERNAL 


MASK FILES 


EXTERNAL 


2Z 


EXTERNAL 


MSK 


EXTERNAL 


IN LIB;OUT LIB; IN STRUCT; OUT STRUCT;NUM 


EXTERNAL 


WIN;LL CRD;UR CRD; LIB INFO; JNAME; JGPL 



IF (FILEINFO "UNSZDATA. XX") <> "" THEN 

FDELETE"UNSZDATA. XX*' 

END I F 

IF ( FILEINFO "OVSZDATA XX") <> "" THEN 

FDELETE"OVSZDATA. XX" 

ENDIF 



: JOB CREATE INFORMATION INPUT 

"<BRON>THE INPUT AND OUTPUT LIBRARY NAMES MUST BE D IFFERENT<BR0FF> " 

M II 
ti It 

FR0G_START: 

1N_L IB; =TEXTINPUT" INPUT LIBRARY NAME: 

IF IN LIB <> "" THEN 
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IF NOT ("." IN IN_LIB) THEN 
IN_LIB: =IN_LIB, ". DB" 

END IF 
ENDI F 
OUTL IB: 

IF (FILEirFO IN_LIB) <> " " THEN 

0UT__L1B:=TEXTINPUT"0UTPUT LIBRARY NAME ( ", ( "ERR" , I N__L1B ) , " ) : 
IF OUT__LIB = "" THEN 

OUT_LIB: ="GDSI I : ", ("ERR", IN_LIB) 
ELSE 

OUT_LIB: ="GDSI I : ", OUT_LIB 
END IF 
IF NOT ("." IN OUT_LIB) THEN 

OUT__LIB: =OUT_LIB, ". DB" 
ENDIF 

IF (FILEINFO 0UT_L1B) = "" THEN 

"(((ERROR))) OUTPUT LIBRARY DOES NOT EXIST" 
II II 

ANS. =7EXTINPUT"D0 YOU WISH TO CREATE ERR", IN_LIB, " (Y). 
IF (ANS = "") OR (ANS = "Y" ) THEN 

OPEri.lB IN_L1B 

LIB_INFO: =INITLIB 

LIBJNFOCn: ="ERR", IN__LIB 

INITLIB LIB_INFO 

CLOSELIB 
ELSE 

GOTO OUTLIB 

ENDIF 

GOTO OUTLIB 

ENDIF 

ELSE 

"(((ERROR))) INPUT LIBRARY DOES NOT EXIST" 
II 11 

GOTO PROG_START 
ENDIF 

INSTRUCTURE: 

I N_STRUCT:=TEXT INPUT "INPUT STRUCTURE NAME: 

IF I N_STRUCT <> "" THEN 

IF (5TRUCLIST IN_STRUCT; IN_LIB ) <> "" THEN 

OUT_STRUCT:=TEXTINPUT"OUTPUT STRUCTURE NAME ( ", ( "ERR", IN_STRUCT ) , " ) : 
IF OUT_STRUCT = "" THEN 

OUT__STRUCT:="ERR", IN_STRUCT 
ENDIF 
ELSE 
"(((ERROR))) INPUT STRUCTURE DOES NOT EXIST" 
GOTO INSTRUCTURE 
ENDIF 
ELSE 
"(((ERROR))) INPUT STRUCTURE MUST BE SPECIFIED" 
GOTO INSTRUCTURE 
ENDI F 

WIN: =TEXTINPUT"COMPUTE WINDOW TO INCLUDE ALL (Y): 

IF (WIN <> "") AND (WIN <> "Y" ) AND (WIN <> "YES") THEN 

CRDS: 
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LL__CRD: =EXP1NPUT"ENTER LOWER LEFT COORDINATE: 
IF LL_CRD <> "" THEN 

UR__CPD. =EXPINPUT"ENTER UPPER RIGHT COORD I ANTE: 
IF UR_CRD = "•• THEN 

"(((ERROR))) ILLEGAL COORDINATE" 
GOTO CRDS 
END IF 
ELSE 
"(((ERROR))) ILLEGAL COORDINATE" 
GOTO CRDS 
ENDIF 

ELSE 

WIN:="" 

ENDIF 



END OF JOBCREATE INFORMATION 



0V52_DATA:='"" 
UNDRSZ__DATA:="" 
AUTO HOLD 
CHOI CES : 

"Please indicate which operation you wish to perform:" 

1 <===== UNDERSI2ING" 

2 <===== OVERSIZING" 

3 <===r= BOTH" 
>i II 

CHOI CE: =TEXTINPUT" <BRON>Operat i on Number : <BROFF> " 

IF CHOICE = "" AND NOT (CHOICE IN "123") THEN 

"<BEL><BRON>( ( (ERROR))) That operation does not ex i st . <BROFF>" 

GOTO CHOICES 
ENDIF 

IF CHOICE = "1" OR CHOICE = "3" THEN 

UNDERSIZING: 
t< II 

"Please enter <BRON>LAYERS<BROFF> for <eRON>UNDERSIZING<BROFF> : " 

It n 

UNDRS2_LAYERS: =EXPINPUT "LAYER: 

IF UNDRSZ_LAYERS <> "" AND (UNDRSZ_LAYERS >=0 AND UNDRS2_LAYERS <=63) THEN 

UN DRSZ_LAYERS : =CFORMAT UNDRSZ_LAYERS 
UNDRSZ_LAYERS:=UNDRSZ_LAYERSCIOTA <1, C<SIZE UNDRSZ_LAYERS ) - 1) ) 1 
DO 

ADDLAYERS: 

LAY: =EXPINPUT "LAYER (END): " 
IF LAY <> "" AND (LAY < OR LAY > 63) THEN 

"<BEL><BRON>( ( (ERROR) ) ) Illegal Input. <BROFF>" 
GOTO ADDLAYERS 
ENDIF 

IF LAY >=:0 AND LAY <=63 THEN 
LAY: =CFORMAT LAY 

LAY: =LAYC IOTA <1, ((SIZE LAY) - 1))3 
UNDR52_LAYERS: =UNDRS2_LAYERS, LAY 
ENDIF 

UNTIL LAY r "" 
ENDDO 
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"<BEL><BRON> You mu5t specify input layers. <BROFF>" 
GOTO UNDERSIZING 
END IF 



UN__OUTPUT_LAyERS. ="" 
AMOUNT: ="" 



"Please enter the <BRON>TOTAL UNDERSIZE<BROFF> in user units" 

II M 

X:=0 

DO 

X:=X + 1 

COMP_LAYER: =UNDRSZ_LAYER5[ XD 

USER UN ITS: 
II II 

AMNT : =EXP INPUT "Layer <BRON>", COMP_LAYER, ": <BROFF>" 
IF AMNT <> "" AND AMNT >=0 THEN 

ONE_HALF_AMNT.=AMNT */. 2 

AMNT:=CFORMAT ONE_HALF__AMNT 

AM OUNT : =AMOUNT; AMNT 
ELSE 

"<BEL><BRON>( ( (ERROR) ) ) Illegal I nput . <BROFF>" 
GOTO U5ERUNITS 
END I F 

0UTPUTLAYER5: 

UN_OUT_LAYER:=TEXT INPUT "Output layer for<BR0N> ", C0MP_LAYER, ": <BR0FF>" 

TEST : =EXECUTE UN__0UT_LAYER 

IF UN_0UT_LAYER <> "" AND (TEST IN (IOTA 63) ) THEN 

UN_OUTPUT LAYERS: =UN_OUTPUT_LAYERS; UN_0UT_LAYER 
ELSE 

"<BEL><BRON> Illegal I nput . <BROFF>" 
GOTO OUTPUTLAYERS 
END I F 

UNTIL X = (LENGTH UNDRSZ_LAYERS) 

ENDDO 

END I F 

IF CHOICE = "2" OR CHOICE = "3" THEN 

OVERSIZING: 
II II 

"Please enter <BRON>LAYERS<BROFF> for <BRON>OVERSIZING<BROFF>" 
It II 

OVSZ_LAYERS:=EXPINPUT "Layer: " 

IF OVSZ_LAYERS <> "" AND (OVSZ_LAYERS >=0 AND OVSZ_LAYERS <=63) THEN 
OVSZ_LAYERS:=CFORMAT OVSZ_LAYERS 

0V52_LAYERS:=0VSZ_LAYERSCI0TA <1, ((SIZE OVSZ_LAYERS) - 1))D 
DO 

ADDLAYERSl: 
OV_LAYER:=EXPINPUT "Layer (END): 

IF OV_LAYER <> "" AND (OV_LAYER < OR OV_LAYER > 63) THEN 
"<BRON><BEL> Illegal Input. <BROFF>" 
GOTO ADDLAYERSl 
ENDIF 

IF OV__LAYER >=0 AND OV__LAYER <=63 THEN 
OV_LAYER: =CFORMAT OV_LAYER 
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OV_LAYER: =OV_LAYERC IOTA (1, ((SIZE OV_LAYER) - 1))3 
0V52_LAYERS: =0VS2_LAYERS; OV_LAYER 
ENDIF 
UNTI L OV_LAYER = "•' 
ENDDO 
ELSE 

"<BRON><BEL>< ( (ERROR) ) ) You must specify input layer(5). <BROFF>" 
GOTO 0VERSI2ING 
ENDIF 



0V_0 UTPUT__LAYERS : =" " 
OV AMOUNT: =•"• 



"Please enter the <BRON>TOTAL OVERSIZE<BROFF> in user units" 

X:=0 

DO 

X:=X + 1 

COMP_LAYER: =0VSZ_LAYERSCX3 

OVSZ LAYERS: 
II II 

OV_AMNT:=EXPINPUT "Layer <BRON>", COMP__LAYER, ": <BROFF>" 
IF OV_AMNT <> "" AND OV_AMNT >=0 THEN 

OV_MNT:=Oy_AMNT 7. 2 

OV_AMNT:=CFORMAT OV_MNT 

OV_AMOUNT:=OV__AMOUNT; OV_AMNT 
ELSE 

"<SEL><BRON>{ { (ERROR) ) ) Illegal I nput . <BROFF>" 
GOTO OVSZLAYERS 
END I F 

OVOUTLAYERS: 

OV_LAY: =TEXTINPUT "Output layer for<BRON> ", C0MP_LAYER, ": <BROFF>" 

TEST : =EXECUTE OV_LAY 

IF OV^LAY <> "" AND (TEST IN (IOTA 63 > > THEN 

0V_0UTPUTJ.AYERS: =0V__0UTPUT_LAYERS; 0V_LAY 
ELSE 

"<BEL><BRON> Illegal Input. <BR0FF>" 
GOTO OVOUTLAYERS 
END I F 



UNTIL X = (LENGTH OVSZ_LAYERS ) 

ENDDO 

ENDIF 

IF CHOICE = "1" OR CHOICE = "3" THEN 
LINES: ="" 

SPACES; =". •• 

SIZE SPACES :=S I ZE SPACES 



TITLE 
TITLE 
TITLE 
TITLE 



="THE FOLLOWING UNDERSIZES WILL BE WRI TTEN : <CR>" 
=TITLE, ••<CR>" 

=TITLE, "INPUT LAYER ! UNDERSIZE I OUTPUT LAYER<CR>" 
=TITLE ••<BRON> (PER EDGE )<BROFF>" 



TITLE: =TITLE, "<CR>===~===:==:-rr=r™z:rr=:=^r==:==========rr=rr<CR>" 
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NN: =0 

XX; = 1 

DO 

XX: =XX + 1 

NN: =NN + 1 

LINE:=" '^UNDRSZ^LAYERSCNNl 

LIN£ : =LINE, SPACESCIOTA (((SIZE ONDRSZ^LAYERSCNND ) + 1), (SIZE SPACES))] 

LINE : =LINE, "(", AMOUNT C XX], " ) " 

LINE :=LINE, SPACESCIOTA (((SIZE AM0UNTCXX3) + 1), (SIZE SPACES) >D 

LINE : =LINE, UN_0UTPUT_LAYERSCXX3 , ••<CR>" 

LINES:=LINES, LINE 

UNTIL NN = (LENGTH UNDRSZ_LAYERS > 

ENDDO 

L1NES:=TITLE,LINES 

LINES 

"UNDERSIZES.XX" SAVE LINES 

END I F 



IF CHOICE = "2" OR CHOICE = "3" THEN 
OV_LINES:="" 

SPACES: =•• " 

SIZE SPACES:=SIZE SPACES 



OV_T ITLE 
OV_T I TLE 
OV_T ITLE 
OV T ITLE 



="THE FOLLOWING OVERSIZES WILL BE WRITTEN: <CR>" 
=Oy_TITLE, ••<CR>" 

=Oy_TITLE, "INPUT LAYER I OVERSIZE : OUTPUT LAYER<CR>" 
=OV_TITLE, "<BRON> (PER EDGE )<BROFF>" 



OV_T ITLE: =OV_TITLE, •«<CR>=======================================<CR>" 

NN:=0 

XX: = 1 

DO 

XX:=XX + 1 

NN:=NN + 1 

OV_L INE: =" ", 0VSZ_LAYERSCNN: 

OV_L INE: =OVJ.INE,SPACESCIOTA (((SIZE 0VSZ_LAYERSCNN3 > + 1>, (SIZE SPACES))] 

OV L INE:=0VJ_INE, "("^OV^AMOUNTCXX], " > " 

OV_L INE: =0VJ.INE, SPACESCIOTA (((SIZE 0V_AM0UNTCXX3 ) + 1), (SIZE SPACES )) 3 

OV L INE: =0VJ.INE, 0V_0UTPUT_LAYERSCXX3, "<CR>" 

OV_L INE5:=0V_LINES,0V_LINE 

UNTIL NN = (LENGTH OVSZ_LAYERS ) 

ENDDO 

OV_L INES:=OV_TITLE,OV_LINES 

VALINES 

•'OVERSIZES. XX" SAVE 0V_LINES 

END I F 

ANS: =TEXT INPUT "Do you want a printout ? (Y): 

IF ANS = "" THEN 

ANS: ="Y" 

END IF 

IF (ANSC13 IN "Yy"> THEN 

IF CHOICE = "1" OR CHOICE = "3" THEN 
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FCOPY "UNDERSI2ES. XX"; "$LPT" 
ENDIF 
IF CHOICE = "2" OR CHOICE = "3" THEN 

FCOPY "0VERSI2ES. XX";"*LPT" 
ENDIF 
ENDIF 

ONCE MORE: 

FILE_NAME: =TEXTINPUT "Please enter program name: 

IF F ILE_NAME <> •'" THEN 
II II 

"<BRON>PLEASE STAND BY. . . <BROFF>" 



G"NULL" 

r'NILADIC PROCEDURE ", FILE_NAME, "<CR>" 

A":<CR>" 

"7 

IF CHOICE = "1" OR CHOICE = "3" THEN 

MASK_FILES: =••: <CR>" 

22:=0 

DO 

ZZ: = ZZ + 1 

LAY: =UNDRSZ_LAYERSCZ23 

MSK: ="MASK FILE UN__LAV" , LAY, "<CR>" 

MSK: =MSK, "MASK FILE NEWUN_LAY", LAY, " <CR> " 

MASK _F I LES : =MASK_F I LES, MSK 

UNTIL ZZ = (LENGTH UNDRSZ_LAYERS ) 

ENDDO 

"UNMASKS. XX" SAVE MA5K_FILES 

IFILE "UNMASKS. XX" 

Z 

IF (CHOICE = "1") AND (CHOICE <> "3") THEN 

:J0B PARAMS INPUT INFORMATION 

A "OPENLIB <QT>GDSII: ", IN_LIB, "<QT><CR>" 

A "OSTRUCT <QT>", IN_STRUCT, "<QT><CR>" 

A "OUTPUTCHANGE <QT>", OUT_LIB, "<QT>; <QT>", OUT_STRUCT, "<QT><CR>" 

2 

IF WIN = "" THEN 

A "OUTPUTVIEW <CR>" 
ELSE 

A "OUTPUTVIEW ",(CFORMAT LL_CRD)," ",(CFORMAT UR_CRD) , "<CR>" 
END I F 
A ": <CR>" 
Z 

ENDIF 

:END OF JOB PARAMS INPUT 

IF CHOICE = "3" THEN 

OV MASK_FILES:=":<CR>" 

2Z: = 

DO 

22: = ZZ + 1 

OLAY : =0VSZ_LAYERSC223 

OV_MASK:="MASK FILE OV_LAY", OLAY, "<CR> " 

OV_MASK:=OV_MASK, "MASK FILE NEWOV_LAY", CLAY, "<CR> " 

OV__M ASK_FILES: =OV_MASK__F ILES, OV_MASK 

UNTIL ZZ = (LENGTH 0VS2_LAYERS) 

ENDDO 
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"0VMA5KS XX" SAVE OV__MASK__F 1 LES 
IFILE "OVMASKS. XX" 

Z 

:job params input information 

a "openlib <qt>gdsi i : ", in_lib, "<ot><cr>" 

a "ostruct <qt>", in__struct, "<qt><cr>" 

a "outputchange <qt>", out_lib, "<0t>; <qt>", out_struct, "<qt><cr>" 

2 

IF W IN = "" THEN 

A "OUTPUTVIEW <CR>" 
ELSE 

A "OUTPUTVIEW ",<CFORMAT LL_CRD ),",",( CFORMAT UR_CRD ) , •'<CR>" 
END I F 
A ": <CR>" 
2 
END I F 



X:=0 

N:=l 

DO 

X:=X 

N: =N 

INPU 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

UNDR 

UNTI 

ENDD 



+ 1 

+ 1 
T__LAYER: = "UN_LAY",UNDRSZ_LAYERSCX3 

=" : <CR>" 

= INPUTJ_AYER, ":=INPUTMASK " , UNDRSZ_LAYERSCX3 

=DATA, "; < IOTA 63)<CR>" 

=DATA, "NEW", INPUT_LAYER 

=DATA, ":=UNDERSI2E ",AM0UNTI:ND 

=DATA, "; ", INPUT_LAYER, "<CR>" 

=DATA, "OUTPUTMASK NEW", INPUT_LAYER, "; " 

=DATA, UN_0UTPUT_LAYERSCN3, "; <QT> J0BL0G<QT>; 

=DATA, "0;200<CR>" 

=DATA, ":<CR>" 

=DATA, "MASKFREE ", INPUT^LAYER, •'<CR>" 

=DATA, "MASKFREE NEW", INPUT_LAYER, ••<CR>" 

=DATA, ":<CR>" 
SZ_DATA:=UNDRSZ_DATA, DATA 
L X = (LENGTH UNDRSZ_LAYERS) 




"UNSZDATA. XX" SAVE UNDRSZ_DATA 
IFILE "UNSZDATA. XX" 

END IF 



IF CHOICE = "2" THEN 

OV_MASK_FILES:="l<CR>" 

ZZ.=0 

DO 

ZZ:=ZZ + 1 

OLAY . =OVSZ_LAYERS C ZZ 3 

OV_M ASK := "MASK FILE OV__LAY", OLAY, "<CR>" , 

OV_MASK:=OV_MASK, "MASK FILE NEWOV_LAY", OLAY, " <CR>" 

OV_M A5K__F I LES : =OV_MASK_F I LES , OV^MASK 

UNTIL ZZ = (LENGTH OVSZ_LAYERS ) 

ENDDO 
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"ovmasks.xx" save ov_mask_f iles 
ifile "ovmasks.xx" 

:job params input information 

a "openlib <qt>gdsi i: ", in_lib, "<qt><cr>" 

a "ostruct <qt>", in_struct, "<qt><cr>" 

a "outputchange <qt>", out_l i b, ••<qt>; <qt>", out_struct, "<qt><cr>" 

y 

IF W IN = "" THEN 

A "OUTPUTVIEW <CR>" 
ELSE 

A "OUTPUTVIEW ••,<CFORMAT LL_CRD ) , " ".(CFORMAT UR_CRO ) , "<CR>" 
END IF 
A ": <CR>" 



:END OF JOB PARAMS INPUT 
END I F 



IF CHOICE = "2" OR CHOICE = "3" THEN 



X: =0 

N:=l 

DO 

X. rX 

N: =N 

OV__I 

OV_D 

OV_D 

OV_D 

OV_D 

OV_D 

OV_D 

OV D 

OV_D 

OV D 

OV_D 

OV D 

OV^D 

0VS2 

UNTI 

ENDD 



+ 1 
+ 1 

NPUT 

ATA 

ATA 

ATA 

ATA 

ATA 

ATA 

ATA 

ATA 

ATA 

ATA 

ATA 

ATA 

_DATA 

L X = 





LAYER: ="OV_LAY", 0VSZ_LAYERSCX3 
OV_INPUT_LAVER, " : =INPUTMASK ", 0VS2_LAYERSCX3 
OVJDATA, "; (IOTA €3)<CR>" 
OVJ)ATA, "NEW", 0V_INPUT_LAYER 
VJDATA , " : =OVERS 1 2E " , V_AMOUNT C N 3 
OVJ)ATA, "; ", OV_INPUT_LAYER, "<CR>" 
OV DATA, "OUTPUTMASK NEW", OV_INPUT_LAYER, "; " 
OVJ)ATA, 0V_0UTPUT_LAYERSCN3, "; <QT> JOBLOG<QT>; 
0VJ)ATA,"0;200<CR>" 
OVJJATA, ":<CR>" 

OV_DATA, "MA5KFREE ", OV_INPUT_LAYER, "<CR>" 
0VJ5ATA, "MASKFREE NEW", OV__INPUT_LAYER, "<CR>" 
OV_DATA, ":<CR>" ~ 

: =OVSZ_DATA, OV_DATA 
(LENGTH 0VS2 LAYERS) 



"OVSZDATA. XX" SAVE 0VSZ_DATA 

IFILE "OVSZDATA. XX" 

END I F 

ELSE 

GOTO ONCEMORE 

END I F 



A"END5UB<CR>' 

X:=0 

DO 
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>: -K + 1 

"<CR >" 

UNTI L X = 20 

ENDD 

W <F ILE^NAME, ". GS" ) 

GPL FILE_NArC; "N" 



"<BRON>PROGRAM: ", ( F I LE_NAME, " . GS" > /' HAS BEEN CREATED<BROFF>" 



AfJS: =TEXTINPUT"<BRON>DO YOU WISH TO RUN DRC JOB (N): <BROFF>" 

IF < ANS = "••) OR (ANS = "N") THEN 
JNAME. ="JOB_NAME="\FILE_NAME, " '" 
JGPL: ="GPL__PROCEOURE="\ FILE_NAME, " '" 
JOBCREATE"DRCJOBS. JT"; (FILE_NAME, " . JC" ) ; (JNAME, JGPL) 

ri II 

"JOB TEMPLATE FILE SAVED: <BRON>", (FILE_NAME, " . JC" > , "<BROFF>" 

ELSE 

JNAME: ="JOB_NAME='",FILE_NAME, "' " 

JGPL:="GPL_PROCEDURE='", FILE_NAME, "'" 

JOBCREATE"DRCJOBS. JT"; ""; (JNAME, JGPL) 
END I F 



ANS: =TEXTINPUT"DO YOU WANT A PRINTOUT OF THE GPLII PROGRAM (Y) 

IF (ANS = "") OR (ANS = "Y") THEN 
II II 

1 =r=> $LPT" 

2 ==> $TTO" 

NUM: =TEXTINPUT"<TAB><TAB>ENTER NUMBER: " 
IF NUM <> "" THEN 
SW ITCH, NUM OF 
CASE "1": 

FCOPY (FILE^NAME, ". GS"); "$LPT" 
CASE "2": ♦ 

FCOPY (FILE__NAME, ". GS">; "$TTO" 
ENDSWITCH 
END IF 
END I F 

"<BRON>SIZIT PROGRAM IS COMPLETE<BROFF>" 

ENDSUB 

THE GPLII PROGRAM "XXCM. GS" HAS ALREADY BEEN WRITTEN. 

IT MAY BE ANY SIMPLE SUBROUTINE. 

? JOBCREATE 

Job Type (XCLI): DRC 

Priority Class (B): B 

Jobname (DRC): 

Turn on DRC verbose mode? (N): 

Are DRC parameters necessary? (Y): N 

GPL Object Procedure: XXCM 

Run, Save, or Abort (RUN): SAVE 

Filename?: DRCJOBS. JT 
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:PR0 GRAM: 


AUTOPLOT 


;by: 


PETER ERDMAN 


:date: 


3-12-85 



NILADIC PROCEDURE AUTOPLOT 

EX fE RNAL VKrC>; S52E; LLCRD; URCRD; PMAG; USTR; STRUC; TXT; UMAG 

EXTERNAL DELX; DELY; TXPOS; FNT; INF; HGT; PAR; SDTP; SKND; SLAY 



VKND 
SKND 
SLAY 
SDTP 
SS2E 



=VKIND 

=SKIND 

=SLAYER 

=SDTYPE 

=SLIMSI2E 



LLCRD. =EXP I rvPUT "ENTER <BRON>LOWER LEFT<BROFF> COORDINATE: " 

URCRD:=EXP INPUT "ENTER <BRON>UPPER RIGHT<BROFF> COORDINATE: ' 

PMAG :=EXP INPUT "ENTER PLOT <BRON>MAG<BROFF>NIFICATION FACTOR 

USTR :=TEXT INPUT "ENTER YOUR USER STRING: " 

VKIND "BDTXPB" 

TEXT 

STRUC: =OSTRUCT 

UMAG : =CFORMAT PMAG 

TXT:=STRUC," at ",UMAG," X<CR>", USTR, "<CR>", GTIME 

ENTERTEXT TXT 

u.»^ T c r\ S7 

DATATYPE 59 

RT LLCRD, URCRD 

TJUST"T";"L" 

PATH TYPE 

WIDTH 

ANGLE 

REFL "N" 

FONT 3 

DELX :=ABS( URCRD Cn - LLCRDCn) 

DELY :=ABS< URCRD C2 3 - LLCRDC23> 

TXPOS: =(LLCRDC 13 + ( . 02*f DELY) ) , (LLCRDC23 - <.02*fDELY)) 

CE TXPOS 

IFNT :=B1NDF0NTS 

;FNT:=FNT£33 

; INF : =FONTINFO FNT 

HGT: =1 . 4*<3 

PMAG : = ( ( . 1 2*iDEL Y ) 7.HGT > 

MAG PMAG 

PUT 

OUTPUTVIEW LLCRD, URCRD 

SLIMSI2E 

PAR: ="JOB_NAME=: 'MS", STRUC, " ' SCALE= '", UMAG, " ' " 

JOBCREATE "2$AUT0PL0T. JD"; "";PAR 

SLAYER 59 

SDTYPE 59 

SKIND "TXBD" 

DATA DELETE" Y" 

SLAYER SLAY 

SDTYPE SDTP 

SKIND SKND 

SLIMSI2E SS2E 

LLCRO: =(LLCRDri3-( . 12mDELX> ), <LLCRDt2 3-(. i2MDELY) ) 



V-24 



URCRO. =(URCRDCn + ( . 12*fDELX) ) , (URCRDC2 3 + < . 12*fDELY) ) 
5ETV lEW LLCRD,URCRD 

ENDSUB 



A JOBCREATE MUST FIRST BE SAVE IN FILE: ZSAUTOPLOT. JD 

EXAMPLE: 

? JOBCREATE 

Job Type <XCLI>: 0VERSA8242 
Prio r i ty Class (B) : 
Jobname ( 0VERSA8242) : CMPLOT 
Plot Options (PLTR): 
Library Name: GPLSCELLS 
Structure Name: CM0S$N0R2 
Plot Window 

CE 1 <0. ,0. ): 

CE2 (0. ,0): 10 10 
Scale Factor (103930.): 1000 

Plot Size Will be 0.3937 By 0.3937 Inches 
Layer Groups: 1 2 3 4 5 7 13 15 
Assign fillcodes to layers 

LI < 1 > : 

L2 (2): 85 

L3 (86): 15 

L4 (16): 34 

L5 (35): 80 

L7 (81 ) : 9 

L13 (10); 7 

L15 (8): 12 
Run, Save, or Abort (RUN): SAVE 
Filename?: 2$AUT0PL0T. JD 
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APPENDIX A 



GPLII PROGRAM FUNCTION LISTING 



PROGRAM FUNCTION LISTING 



MAGLIB 



FINDANGLE 



CM$EDIT 
SCRBE 

PGTITLES 

MYSETUP 
T$WSETUP 

CUSMENU 



CFMT 
CLEANUP 

SIZIT 

AUTODONUT 
AUTO PLOT 

AREA 



This program will process the GDSII database file on a structure-by- 
structure basis. It will magnify the selectable data elements by a 
specified amount. 

This program will look in every structure within the database and locate 
any SREFs which have been placed with an ABSOLUTE ANGLE. It will 
report the element key number of the SREF and store the information in a 
log file. 

This program may be used to edit text string nodes. It works much like 
the 'CH' command for the GDSII text editor. 

This program will build a scribe structure given the final die size, layers 
and interior delta distances for each scribe layer. It will produce a 
fracturable scribe that the final device may then be placed within. 

This program will set up titling for P.G. fracture for each lay«- to be 
fractured. A fracturable text font library MUST first be built. 

This program may be used to set up the GDSII workstation. 

This program will "read" the current parameters of the GDSII workstation 
and write a GPLII set up program. 

This program will build a custom menu. The user need only input the 
commands that will be included in the menu and the program will write all 
of the necessary files. CALMAFONT must be present. At this time, this 
program is only implemented for MRD and MHD type display screens. 

This is a custom CFORMAT program used by the CUSMENU program. 

This program is a custom program written for the CUSMENU program. It 
locates dashes within a command string and removes them. 

This program automates the process of writing UNDERSIZING and 
OVERSIZING DRC programs. It first writes the GPLII DRC program and 
then enters the necessary JOBCREATE to run the DRC. 

This program will digitize a specified boundary into a donut shaped 
boundary by specifying the interior window. 

This program will write an OVERSA82^2 30BCREATE from the input of 
the user. The input will include the plot window and the scale. See the 
program example for further information. 

This program will calculate the area of a specified boundary or path. 
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PROGRAM FUNCTION LISTING (continued) 



NUMPTS 



SUBMAT 



BLDFONTLIB 



SHOWCRDS 

LOCATE 

ENCLOSEDBY 

INSIDE 

PLEXIT 

PASSWORD 

FIRSTPNT 

WINMARK 

ROUNDIT 

IDNODEPROP 

SCALTEST 



This program will tell the user the number of vertices of a specified 
boundary. 

This program is a custom CFOR MAT program that will eliminate the 
decimal from the end of a real number that has been changed to character 
data. 

This program will copy a defining (BOX only) text structure and build a 
structure for each text font. This program would be used to simply copy 
any reference -type data throughout the database (i.e., the text font 
defining BOX). 

This program will display the order in which a specified boundary or path 
has been entered into the database. 

This function will return the location of a character or set of characters 
within a vector. 

This program will determine if one layer is completely enclosed by 
another. See the program example for further information. 

This function is used by the ENCLOSEDBY program. It will determine if 
a sjjecified coordinate is "inside" an array of coordinates. 

This program is used by the ENCLOSEDBY program to PLEX one 
geometry to another. 

This program may be used as a simple security program. The user is 
prompted to enter a password before they may obtain access to the 
system. 

This program will display the first coordinate of a specified boundary or 
path. 

This program will mark all elements within a specified window. 

This DRC program will round geometries to a specified precision. 

This program will identify and display all the user properties that may 
have been assigned a specific NODE. 

This program is used to illustrate the usage of the SCALARINPUT 
function. 
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APPENDIX B 



GPLII KEYWORDS 



GPL KEYWORDS 



ABS 


(+) ADDITION 


AND 


ARCTAN 


(:=) ASSIGNMENT 


ARRAY 


BOOLEAN 


CEILING 


CHAR 


COS 


DEC 


(%) DIVISION 


DROP 


DYADIC 


DO 


EQ 


EXP 


ENDDO 


EXTERNAL 


EL IF 


ELSE 


ENDSWITCH 


FALSE 


FLOOR 


FUNCTION 


FILE 


GEQ 


GRASEDOWN 


GRADEUP 


GT 


GLOBAL 


GOTO 


(+) IDENTITY 


IN 


INDEXOF 


IOTA 


LN 


LOGBASE 


(;) LIST CONCATENATION 


LT 


LIST 


LOCAL 


MAX 


MIN 


(*) MULTIPLICATION 


MASK 


MOD 


NAND 


NEQ 


NOR 


(-) (#) NEGATION 


NOT 


MONADIC 


OR 


PI 


POWER 


PROCEDURE 


RANK 


(,) RAVEL 


i%) RECIPROCAL 


RESHAPE 


REAL 


SHAPE 


(*) SIGNUM 


SIN 


SIZE 


SORT 


SORTDOWN 


[] SUBSCRIPTION 


SCALAR 


(-) SUBTRACTION 


TAN 


THEN 


TAKE 


TYPEOF 


XOR 


UNTIL 


(,) VECTOR CONCATENATION 


WHILE 


SWITCH 


OUT 


NILADIC 


INTEGER 


CASE 


SCALAR 


OF 


ERRIRAP 


REAL 


TRUE 


ENDIF 


LOGICAL 


VECTOR 


CASE 


ENDSUB 
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GPLII ERROR MESSAGES 



GPLII ERROR MESSAGES 



The following list of GPLII error messages is current as of GDSII release 4.0.8. The 
explanations included with each message indicate the most common cause(s) of that 
message which may not be the same cause of the problem you are trying to solve. 

Some pointers in debugging a program might include: 

1. After making corrections in the text editor, remember to W, GPL, and LOAD. 
LOADing will only take place automatically if the program in question is not in 
the work area. 

2. If you have an error message pointing to a statement that you KNOW is correct, 
fix the other errors first. Some errors cause other errors. 

3. The compiler makes three passes through the source code, and will find different 
types of errors on each pass. Therefore, it is possible to get some "Pass One 
Errors" or "Pass Two Errors", correct them, and get more errors. 

4. Interactively, elided output may be implemented to examine the contents of 
external variables. You will either get the value (indicating that the program 
made it at least to the initializaton of that variable) or the error "Variable Not 
Initialized". In the case of a counter, you can determine how many times a loop 
was completed. 

Local and global variables may not be examined after the pa-ogram is complete, 
however, such a variable may be stored in an external variable which could be 
examined upon program completion. 

3. On rare occasions, G - Code may be used to debug a program. This is generally 
used when the program has defied all your attempts at debugging. 

6. Elided output is a must when it comes to debugging. It may be used in a program 
as well as interactively. Inside your program, it can tell you where the error in 
question is occurring. Suppose you do not know where the program is choking. 
You could put elided output flags every 10 lines, thereby narrowing the region in 
which the error exists to 10 lines: 
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code 

code 

code 

code 

code 

code 

code 

code 

code 

code 

10 

code 

code 

code 

code 

code 

code 

code 

code 

code 

code 

20 

code 

code 

code 



30 



^0 



Suppose the program example above looked like this when executed: 

? PROGRAM 



10 

20 
***ERROR*** EOF ENCOUNTERED INSIDE STRING 

It can now be determined that the {x*ogram failed between the 20 and 30 flags. 
The next step might be to add more flags between the lines in that region until 
you have located the line in error. Using this technique can save you a lot of 
time hunting for a mistake. 
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All of the error messages are followed by a word or words indicating when such a message 
would appear. They are interpreted as follows: 

1. interactive - during interactive manipulation of GPLII statements. 

2. compilation - while compiling the program using the GPL command. 

3. runtime - during the actual execution of the program. 

^. load - while LOADing the program with the LOAD command. 

1 . ACCESS CONTROL BLOCK NOT OPEN 
runtime, interactive 

An attempt to subscript a scalar will cause this. If your program subscripts a 
variable, and there is any chance that the variable might turn out to be a scalar, then 
your program is susceptible. 

Example: 

VAR := 7 

FAR := VAR[1] 



A suggested workaround is to ravel the scalar into a vector first. 

Example: FAR := (,VAR)[1] 

2. ARGUMENT n NOT NULL 
runtime, interactive 

The database element format list is unforgiving. If you wish to create an element in 
the database, be absolutely sure that the list is accurate. 

For example, the seventh position of the element list is for the transformation 
specifier properties (REFL, ANGLE, MAG). A boundary does not have these 
parameters. If you attempt to create a boundary with a position 7, you will get this 
error. 

Example: ? CORDS := 5 2 RESHAPE 10 10 10 10 

? PUTEL 3 -1; 7; 0; ; ; CORDS; 1 

It is correct to leave a null vector in position 7, or position 7 may be omitted 
entirely. When working interactively, it is irrelevent whether or not the quotes (" ") 
are used to indicate a null position. They are only necessary to satisfy the compiler's 
desire to see an argument on both sides of a semicolon (;). 
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Example: ? PUTEL 3 -1; 7; 0; ; ; CORDS; " " 

is the same as: 

? PUTEL 3 -1; 7; 0; ; ; CORDS 

3. ARGUMENT LEFT ON STACK 
runtime, interactive 

A procedure may be declared as a function. 

^. ARGUMENT REQUIRED 
compilation 

If the variable into which the argument of a monadic or dyadic program will be stored 
is omitted from the program declaration line, this message will appear. 

Example: MONADIC FUNCTION OHMS := FUNC 

Should read: MONADIC FUNCTION OHMS := FUNC ARG 

5. ATTEMPT TO CREATE AN ILLEGAL ELEMENT 
runtime, interactive 

This message will appear if an attempt is made to do a PUTEL with an invalid list. 

Example: PUTEL 3 -2; 7; 0; " "; " "; 7 

In the example above, the boundary only has one coordinate. 

6. CLEAR MUST NOT BE USED WITHIN A GPLII PROCEDURE 
runtime 

As of release 4, it is not possible to use CLEAR within a GPLII program. 

7. CONTROL VARIABLE NOT LOCAL 
compilation 

If the variable used in a FOR loop is declared as external this error may appear. 

Example: EXTERNAL CONTROL__VAR 

FOR CONTROL VAR RANGE (IOTA 9) DO 



ENDDO 

The FOR statement is not implemented yet anyway. 

8. DIVISION BY ZERO 
runtime, interactive 

If an attempt to divide by is made, it will cause this error. 
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Example: ? 242 70 19 % 7 

DIVISION BY ZERO 
DIVISION BY ZERO 
242. 10. 19. 

9. DOUBLY DECLARED VARIABLE 
compilation 

A variable or subroutine has been declared more than once. 

10. DYADIC OPERATOR REQUIRED 
compilation 

Two sequential expressions in a line require a dyadic operator between them. 

1 1 . ELEMENT DOES NOT EXIST 
runtime, interactive 

An attempt to use GETEL with a non-existent key will cause this. 

Example: GETEL 99 

12. ELSE OUTSIDE IF 
ENDIF OUTSIDE IF 
compilation 

You may have misspelled or omitted some other keyword such as an ENDDO or 
ENDSWITCH. 

13. END OF FILE 
runtime, interactive 

Using DIGMODE with a null vector as an argument will cause this. 

Example: DIGMODE " " 

Also, use of a DATA command with a null vector for the optional keys argument will 
cause this. 

Example DATAMOVE 10 0; " " 

14. EOF ENCOUNTERED INSIDE STRING 
compilation 

The keyword ENDSUB (which is an End Of File) was found inside a literal character 
vector. This can be caused by leaving out a quote ("). 

Example: 



ARG := EXPINPUT "Enter Layer Number: 



ENDSUB 
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15. EXECUTION STACK DESTROYED 
runtime, interactive 

A certain form of strange syntax will cause this. 

Example: ? (INITLB) 

16. EXECUTION STACK OVERFLOW 
runtime 

If an attempt is made to create more than 122 entries on the execution stack, this 
error will appear. Local and global variables take one entry each, subroutine calls 
take two. You may need to declare some variables external, as they do not take up 
any space on the execution stack. 

17. EXPRESSION PARSED INCORRECTLY 
compilation 

Usually, this means the number of arguments used with a subroutine call is 
inconsistent with the declaration of that subroutine. 

Example: 



EXTERNAL MONADIC PROCEDURE TESTl 
TESTl 



Also very common, a functiai may be declared as a procedure. 

This message may also appear if the compiler doesn't know what's wrong ... in 
essence, an "all out case". See "parse" in the dictionary if necessary. 

18. EXTRA ")" 
compilation, interactive 

A right parenthesis ( )) is found with no left parenthesis (( ) to match it. 

Example: (A A)) [2; 2] := BB 

This can also be caused by a subscripting error. 

Example: (AA [2) 

19. FOR VARIABLE MUST BE DECLARED LOCAL 
runtime 

FOR statements do not work. When they do, local or gldbal variables must be used 
with them. Currently, if an attempt is made to implement the FOR statement with 
local or global variables, this error may be the result. 
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20. FPU OVERFLOW 
runtime, interactive 

The result of an arithmetic expression is larger than the capability of the Floating 
Point Unit to represent it. 

21. GOTO INTO A STRUCTURED STATEMENT 
compilation 

This message will appear if a label is found within a structured statement such as an 
IF/THEM. 

Example: 



IF expression THEN 



START: 



ENDIF 



GOTO START 



22. GPLII WORK AREA BIT MAP ALLOCATION ERROR 
runtime, interactive 

This is a bug. It may be necessary to use ^R as a last result. 

23. ILLEGAL ARGUMENT DATA TYPE 
runtime 

This can be caused by using a variable that has the same name as a GPLII subroutine 
that is already in the work area. 

Example: NILADIC PROCEDURE SETUP 

EXTERNAL CALMAMENU 

CALMAMENU 



? LOAD "CALMAMENU" 
? SETUP 
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2^. ILLEGAL ARGUMENT FOR CREEL 
runtime, interactive 

CREEL is a subroutine used in the CREation of an ELement. If an illegal value is 
submitted to PUTEL (which calls CREEL) this message may be the result. 

Example: PUTEL 3; 67; 1; ;; 5 2 RESHAPE 00202202 

In the example above, an attempt was made to create a boundary on layer 67 which 
is of course absurd. 

25. ILLEGAL ARGUMENT SHAPE 
runtime, interactive 

If the incorrect number of values is used in an argument, this error message will 
appear. 

Example: VIEW 100 100 2 2 

26. ILLEGAL CHARACTER 
compilation 

A name may have an illegal character in it. Names include; procedures, functicris, 
variables, keywords, and labels. Legal characters for names include: 
alpha-numerics (A-Z, 0-9) dollar signs ($) and underscores ( _ ). 

Example: NILADIC PROCEDURE SETUP@ 

27. ILLEGAL DATA MODE 
runtime, interactive 

Characters were used where numerics were expected or vice -versa. 
See also: ILLEGAL TYPE CONVERSION 

28. ILLEGAL DATA RANK 
runtime, interactive 

An argument has the wrong number of dimensions, (scalar vs. vector vs. matrix vs. 
list). 

Example: CE 5 

Note: Sometimes this message will appear when in fact ILLEGAL DATA SHAPE 
would have been more appropriate. 

29. ILLEGAL DATA SIZE 
runtime, interactive 

A list subscript is out of range* 

Example: ? CC t^ ^"ABC; 4 ^ RESHAPE 1 .6; IOTA 9; -98.6; "F" 

? CC[6] 
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30. ILLEGAL DATA VALUE 
runtime, interactive 

A vector subscript out of range will cause this. 

Example: (6330 6331 6332 6339) [5] 

31. ILLEGAL ELEMENT FORMAT 
runtime, interactive 

An attempt to do a PUTEL with an improper element list will cause this message to 
appear. 

Example: PUTEL " " 

32. ILLEGAL ELEMENT TYPE 
runtime, compilation 

Use of PUTEL with an element type that is not in the range 1 < = n < = 7 will 
cause this. 

Example: PUTEL 8 -2; 9; 3; " "; "GND"; 18. ^. 

33. ILLEGAL EXECUTE REQUEST 
runtime, interactive 

EXECUTE is used to evalutate a character vector and return the numerical result of 
that vector. More simply stated, it turns diaracters into numbers. This error will 
appear if it is impossible to do so. 

Correct Examples: ? EXECUTE "1 2 3" 

1. 2. 3. 
? CORDS := EXECUTE "GEDCOORDS" 
? CALL "REDRAW" 
? CALL "Al := VALUE" 

Incorrect Examples: ? EXECUTE "ABC" 

? EXECUTE "REDRAW" 

3^. ILLEGAL FORMAT REQUEST 
runtime, interactive 

An attempt to FORMAT a list will cause this error. CFORMAT may be used for 
lists, but FORMAT may not. 

Incorrect Example: ? FORMAT "ABCDEF"; 1 2 3 

Correct Example: ? CFORMAT "ABCDEF"; 1 2 3 

ABCDEF 1.2. 3. 

35. ILLEGAL ITEM IN EXPRESSION - SKIPPING 
compilation 

If the equal sign (=) is omitted from an assignment statement this message will 
appear. 

Example: DD: 7 
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36. ILLEGAL KIND /KEY/STATUS/PLEX[1] 
runtime, interactive 

You may have given key numbers to PUTEL instead of the complete element list. 

Example: ? KEYS := MSELECT . . . 

?EL := GETELKEYS[1] 

. . . change . . . 
. . . modify . . . 
. . . whatever . . . 

? PUTEL KEYS 

Should read: ? PUTEL KEYS[1] 

37. ILLEGAL NUMERIC INPUT 
runtime, interactive 

An attempt to use IOTA with a non-integer argument will cause this message to 
appear. 

Example: ? IOTA 7.5 

38. ILLEGAL STORE OPERATION 
runtime, interactive 

This message will result if an expression is found to the left of an assignment 
statement such as with a double subscript. 

Example: (VAR[3] ) [2 3] := 7 8 

A workaround to this is to use an intermediate variable. 

Example TEMP := VAR[3] 

TEMP[2 3] := 7 8 
VAR[3] := TEMP 

39. ILLEGAL TYPE CONVERSION 
runtime, interactive 

Character data was used where numeric data was expected or vice -versa. GPL II 
will convert: logicals ~> integers, logicals ~> reals, and integers —> reals, 
automatically where necessary. This is known as 'Automatic tyF)e conversion:. 
However, not true with: characters — > numerics or numerics — > characters. 
Use CFORMAT to convert numeric data — > character data and EXECUTE to 
convert character data ~> numeric data. 

40. (IMPOSSIBLE) RUNTIME STACK OVERFLOW IN STATEMENT EXPRESSION 
compilation 

Be sure there is no statement between the SWITCH and the first CASE. 



C-10 



Example: 



SWITCH 

expression <— not allowed 

CASE " " 



CASE 1; 2; 



ENDSWITCH 



'^l. INACTIVATED LOCAL VARIABLE 
interactive 

An attempt to use a local or global variable interactively after a program completes 
will cause this. Only the values of external variables are retained in the work area. 
If the variable must be local and there is a need to examine it upon program 
completion, then one could assign the contents of the local variable to an external 
variable. 

Example: 



LOCAL EE 
EXTERNAL FF 



EE := ABS (.5 * SUM) 
FF := EE 



^2. INVALID ACCESS KEY 
runtime, interactive 

This message will result in the event of the use of a non-existent element key with 
GETEL or PUTEL. Assuming there is no element 9940, consider this example. 

Example: ? PUTEL 3 9940 -2; 7; 0; ;; 7 7 7 7 

If the key number in the element list is 0, PUTEL will assign a new key number and 
create the new element. However, if the key number is anything else, PUTEL looks 
for that element to delete it so it can create a new one to replace it. This error will 
appear if there is no element 9940. 
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Workarounds: 1. Change the key number to 0. 

2. Do not delete 99^0. PUTEL will delete it and 
build the new one for you. 

^3. KEYWORD NOT LEGAL IN THIS CONTEXT 
interactive 

There are a few select words which may only be used within the context of a GPLII 
program. Any attempt to use them interactively will result in this error. Some key 
words are: 

EXTERNAL, NILADIC, MONADIC, DYADIC, PROCEDURE, FUNCTION, DO, 
UNTIL, ENDDO, WHILE, FOR, RANGE, IF, THEN, ELIF, ELSE, ENDIF, 
SWITCH, OF, CASE, OUT, ENDSWITCH, GOTO, ENDSUB 

^^. LEFT OPERAND REQUIRED 
compilation 

An operator requires a left argument. 

Example: RESHAPE 7 

^5. MISSING ENDDO 
compilation 

The keyword ENDDO is missing from a DO loop. 

Example: 



DO 



UNTIL expression 



See note 2 at the beginning of this list. 

^6. MISSING ENDIF 
compilation 

The keyword ENDIF is missing from an IF statement. 

Example: 

IF ANS[i]IN "Nn"THEN 



See note 2 at the beginning of this list. 
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47. MUST BE AT LEAST ONE VARIABLE DECLARATION 
compilation 

Just like the error says, you must declare something, anything, regardless of 
whether or not you use it. This is a limitation of the compiler. 

Example: NILADIC PROCEDURE SIMPLE 

LOCAL USELESS 

2+2 

ENDSUB 

48. NAME IDENTIFIER REQUIRED 
":=" REQUIRED - INSERTED 
END OF LINE EXPECTED 
compilation 

This message will appear if the variable assignment is missing in the program 
declaration line of a function. 

Example: MONADIC FUNCTION MITHRIL LEMBAS 

Should read: MONADIC FUNCTION ALE := MITHRIL LEMBAS 

49. NILADIC, MONADIC, OR DYADIC REQUIRED 
compilation 

The very first line in any GPLII program must be the fx^ogram declaration describing 
the type of program it is. The only exceptions are comment lines and blank lines. 
There are six possible configurations for a program declaration line. 

Examples: NILADIC PROCEDURE PROGRAM 

MONADIC PROCEDURE PROGRAM ARG 
DYADIC PROCEDURE ARGl PROGRAM ARG2 
NILADIC FUNCTION RESULT := PROGRAM 
MONADIC FUNCTION RESULT := PROGRAM ARG 
DYADIC FUNCTION RESULT := ARGl PROGRAM ARG2 

50. NO FORMAT OUTPUT FIELD 
runtime, interactive 

One cause of this error is an attempt to print an integer vector which has a SIZE 
greater than or equial to 10,000 (SIZE VECT >= 10000). See also: NUMBER OUT 
OF RANGE 

51. NUMBER OUT OF RANGE 
runtime, interactive 

This message will appear if an attempt is made to evaluate an expression having a 
greater value than the capacity of GPLIL See also: NO FORMAT OUTPUT FIELD. 
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52. ONLY ONE UNTIL ALLOWED AT END OF DO 
compilation 

If an assignment (:=) is used by mistake where a comparison was intended, this error 
may occur. 

Example: 



N := 
1X> 

N := N + 1 



UNTIL N := NUM ENDDO 



53. OPERAND REQUIRED 
interactive 

This message indicates that an argument is completely missing. 

Example: ? IOTA 

5^. PROCEDURE DOES NOT END WITH ENDSUB 
compilation 

The keyword ENDSUB has been omitted from the end of the program. This message 
will appear even though the program in question may be a function. 

If there is an ENDSUB, and this error appears, it may be caused by something else. 
Correct the other errors first. That may fix the problem. 

55, PROCEDURE NOT MONADIC OR DYADIC 
execution 

An attempt to use an argument with a niladic GPLII program will cause this error. 

Example: ? RESTART 7 

56. PROCEDURE OR FUNCTION REQUIRED 
FATAL COMPILER ERROR - QUIT 
compilation 

If in the program declaration line, the word PROCEDURE or FUNCTION is 
misspelled or omitted, this message will appear. 

Example: NILADIC PROCEDURE SETUP 
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57. PROGRAM INCONSISTENT WITH EXISTING VERSION 
load 

This can be caused by having a program of a given type in the work area, then 
modifying it to a new program type, recompiling and attempting to reload. 

Example: - load a niladic procedure into the work area 

- modify the program to be a monadic procedure 

- recompile the program 

- attempt to reload the program 

Workarounds: - rename the program 

or 

CLEAR the work area before reloading the new 
type of program 

58. RIGHT OPERAND REQUIRED 
compilation, interactive 

One cause of this error is to omit the right argument of a monadic or dyadic 
operator. The compiler will flag this error. 

Example: 



•TWO LINES(CR)OF TEXT" INDEXOF 



A second cause is to omit the right argument of a dyadic operator when being used 
interactively. 

Example: ? 5 2 RESHAPE 

59. SEPARATOR REQUIRED BETWEEN CONSTANTS 
compilation 

See: DYADIC OPERATOR REQUIRED 

60. STRING OVERFLOW 
runtime, interactive 

An attempt to display an integer vector having a SIZE in the range 6554 < = n < = 
9999 will cause tiiis message to appear. 

61. UNMATCHED "( " 
compilation, interactive 

A left parenthesis (( ) is found with no right parenthesis ( )) to match it. 

Example: (HH[7] 
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62. UNRECOGNIZED ELEMENT TYPE 
runtime, compilation 

Use of PUTEL with an element type that is not in the range 1 < = n < = 7 will 
cause this. 

Example: PUTEL 8 -2; 9; 3; " "; "GND"; 18. 4. 

63. VARIABLE HAS NOT BEEN INITIALIZED 
runtime, interactive 

If a variable is declared, but not initialized before it is used, this error message will 
result. 

Example: 

EXTERNAL HH; II 
II := 2 % HH 



The three steps required to implement a variable are: 

1. declare 

2. initialize 

3. use 

Example: 



EXTERNAL HH; 11 

HH := 7 

II := 2 % HH 



64. VARIABLE NOT DECLARED 
compilation 

A variable or subroutine declaration has been omitted. A simple spelling error will 
cause this. 

Example: MONADIC FUNCTION RES := FORMC33 AFARG 

EXTERNAL DYADIC FUNCTION MYDFUNC 
LOCAL VALUE 

VALUE i^. 00 i MYDFUN 
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65. VARIABLE NOT DEFINED 
interactive 

An attempt to use a variable that is not in the work area will cause this error. 
Misspelling a command will also cause this error, therefore making it the very first 
error message most of us ever saw (and will probably never forget). 

Example: ? OPENLOB 

66. VIRTUAL POSITION ERROR 
runtime, interactive 

This is a bug. It may be necessary to use '^R as a last result. 

67. WRONG NUMBER OF ARGUMENTS 
execution 

An attempt to execute a monadic or dyadic program without arguments will cause 
this message. 
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APPENDIX D 



RELRPIM.PR 



: UOICe COMMANDS 

USER COMMANDS 

EXTERNAL NILADIC, MONADIC PROCEDURE TRAIN 
EXTERNAL NILADIC* MONADIC PROCEDURE UPDATE 
EXTERNAL NILADIC^ MONADIC PROCEDURE UPLOAD 
EXTERNAL NILADIC. MONADIC PROCEDURE DOWNLOAD 
EXTERNAL NILADIC, MONADIC PROCEDURE SETREJECT 
: EXTERNAL NILADIC^ MONADIC PROCEDURE RECOGNIZE 
EXTERNAL NILADIC PROCEDURE RESET 
EXTERNAL NILADIC, MONADIC PROCEDURE UOICE 
EXTERNAL NILADIC PROCEDURE ATTENTION 
EXTERNAL NILADIC PROCEDURE RELAX 

SYSTEM FUNCTIONS 

: End Of UOICEPRIM.PR 
: CARDS COMMANDS 

USER COMMANDS 

EXTERNAL NILADIC* MONADIC PROCEDURE TDCHECK 

SYSTEM FUNCTIONS 

PHOTO PLOTTER AND NC DRILL COMMANDS 

PHTOOL IS NOW DEFINED IN 6DSIIPRIM.PR BECUASE IT IS ALSO TO BE 
USED BY CHIPS 

EXTERNAL NILADIC* MONADIC PROCEDURE NCTOOL 

; NET LIST EXTRACTION COMMANDS 

EXTERNAL NILADIC FUNCTION NXSTRUCT 
EXTERNAL NILADIC* MONADIC PROCEDURE NXTOOL 
EXTERNAL NILADIC* MONADIC PROCEDURE NXREPORT 

: INTERACTIVE ROUTER COMMANDS 

EXTERNAL NILADIC PROCEDURE ROUTE 

: END OF CARDSPRIM.PR 
: CHIPS COMMANDS 

USER COMMANDS 

EXTERNAL NILADIC* MONADIC PROCEDURE STRETCHCELL(STCELL) 
EXTERNAL NILADIC FUNCTION* NILADIC PROCEDURE SCELL 

SYSTEM FUNCTIONS 

: END OF CHIPSPRIM.PR 

STICKS COMMANDS from STICKSPRIM. PR 4/28/^84 

USER COMMANDS 

EXTERNAL NILADIC* MONADIC FUNCTION STRCLASS 
EXTERNAL NILADIC* MONADIC PROCEDURE SRF 
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EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

MONADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

MONADIC 

MONADIC 

NILADIC 

MONADIC 

NILADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

NILADIC 

DYADIC 

NILADIC 

NILADIC 

MONADIC 

MONADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

DYADIC, 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 

MONADIC 



MONADIC PROCEDURE BINDSRF 

MONADIC PROCEDURE/ NILADIC FUNCTION EXTERIOR 

MONADIC PROCEDURE, NILADIC FUNCTION DIGASPECT 

MONADIC PROCEDURE, NILADIC FUNCTION BSTICKS 

MONADIC PROCEDURE, NILADIC FUNCTION EXTENSION 

MONADIC PROCEDURE CLONE 

MONADIC PROCEDURE FATWIRE 

MONADIC PROCEDURE PORTWIDTH 
PROCEDURE SNAPEND 

MONADIC PROCEDURE FINDINSTANCES 
FUNCTION IDCOUNT 

PROCEDURE, NILADIC FUNCTION SHOWSTATUS 
FUNCTION BUTTCODE 
, MONADIC PROCEDURE STATIONUS 
FUNCTION SAUEUS 
PROCEDURE RESTOREUS 
PROCEDURE NOREDRAM 
FUNCTION SCREENCOORD 
PROCEDURE KINDS 
FUNCTION KINDUS 

FUNCTION SCALARINPUT (SCALRINPUT) 
FUNCTION LOWESTOF 
FUNCTION HIGHESTOF 
, MONADIC FUNCTION CECOUNT 
FUNCTION SUBSTRING (SBSTRIN6) 
PROCEDURE EXON 
PROCEDURE EXOFF 
FUNCTION CELLKEYS 
FUNCTION CELLKEY (CELKY) 
PROCEDURE JOINMIRES 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 

MONADIC PROCEDURE 
PROCEDURE, 
PROCEDURE, 



NILADIC FUNCTION BORDER 

NILADIC FUNCTION PORT 

NILADIC FUNCTION PORTNODE 

NILADIC FUNCTION MIRE 

NILADIC FUNCTION FENCE 

NILADIC FUNCTION HARDUIRE 

NILADIC FUNCTION HARDFENCE 

NILADIC FUNCTION SYMGRAPH 

NILADIC FUNCTION EXTERIORTEXT (EXTEXT) 

NILADIC FUNCTION INTERIORTEXT (INTEXT) 
NILADIC FUNCTION USERCONSTRAINT (CONSTRAINT) 
NILADIC FUNCTION DANGLEMARK 



MONADIC FUNCTION DSRULE 
PROCEDURE MATERIALS 
PROCEDURE OBJECTS 
PROCEDURE SHOUERRORS (SHOERRID) 
MONADIC PROCEDURE DRAMSEGS 
MONADIC PROCEDURE DRAUCROSS 
MONADIC PROCEDURE DRAUARROM 
PROCEDURE DRAMBOX 
PROCEDURE DRAWTEXT 
PROCEDURE DRAWPROMPT (DRWPROMPT) 
FUNCTION DYNAMENU 
FUNCTION CELLMENU 
FUNCTION GETCELLMENU CGTCELLMEN) 
PROCEDURE SAMECELLMENU CSAUCELLMEN) 
FUNCTION LOCKCELLMENU CLOCKCELMEN) 
PROCEDURE FREECELLMENU (FREECELMEN) 
PROCEDURE ERASESEGS CESEGS) 
PROCEDURE ERASECR05S CECROSS) 
PROCEDURE ERASETEXT (ETEXT) 
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EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



MONADIC 

MONADIC 

MONADIC 

NILADIC 

MONADIC 

MONADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

MONADIC 

NILADIC 

NILADIC 

DYADIC 

NILADIC 

NILADIC 



PROCEDURE ERASEPROMPT (EPROMPT) 
PROCEDURE ERASEARROU (EARROM) 
PROCEDURE ERASEBOX (EBOX) 

MONADIC PROCEDURE AUTOBORDER 
FUNCTION EXTENT CXYEXTENT) 
FUNCTION ENCIRCLE 

MONADIC PROCEDURE GETBORDER 

MONADIC PROCEDURE IDBORDERS 

MONADIC PROCEDURE SHOWBORDERS 

MONADIC PROCEDURE SH0I4P0RTS 

MONADIC PROCEDURE WIREPORTS (WTOPPATH) 

MONADIC PROCEDURE MIRENODEPORTS (UTOPNODE) 

MONADIC PROCEDURE COPYPORTS 

MONADIC PROCEDURE IDPORTS 

MONADIC PROCEDURE 6ETP0RT 
PROCEDURE NAMEPORTS 

MONADIC PROCEDURE ENDSPACER 

MONADIC PROCEDURE ATTACHMIRES (ATACHMIRES) 
FUNCTION FINDCROSS (FNDCROSS) 

MONADIC PROCEDURE NAMECLANS 

MONADIC PROCEDURE SHOMCLANS 



PCELL STUFF 



EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION BPCELL (PBEPC) 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELL (PPCXX) 

EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION PCELLANGLE (PPCAN) 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLCLEARPARAM (PCLPM) 

EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION PCELLDEFPATH (PDTXX) 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLENDCAP (PPCEE) 

EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION PCELLLENGTH (PPALN) 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLNATURAL (PPCNA) 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLPLACENAIL (PPLNL) 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLREMOUENAIL (PRMNL) 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELLTEXTPARAM (PTXPM) 

EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION PCELLUALID (PUDXX) 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELLSETX 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELLSETY 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELLSETW 

EXTERNAL NILADIC PROCEDURE PCELLSTRETCHMARK CPPCSM) 

EXTERNAL NILADIC PROCEDURE PCELLUARPOLY CPPCUP) 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLMMARK (PUDMR) 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELLWPARAM 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLXMARK (PXSMR) 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELLXPARAM 

EXTERNAL NILADIC, MONADIC PROCEDURE PCELLYMARK (PYSMR) 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION PCELL YPARAM (PASYS) 

EXTERNAL MONADIC PROCEDURE PCELLAUTOSPACE (PAUSP) 

EXTERNAL NILADIC PROCEDURE PCELLCOMPRESS (PPMSQ) 

SYSTEM FUNCTIONS 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION STICKMODE 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION STICKSMODE (STICKMODE) 

EXTERNAL NILADIC PROCEDURE SETSTICKS 

EXTERNAL NILADIC PROCEDURE SETPCELL 

EXTERNAL MONADIC PROCEDURE STICKSEDITOR (STIXEDITOR) 

End of STICKSPRIM.PR, nothing beyond this line 

GPL II (tm) EXTERNAL DEFINITION FILE 
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(PSEXS) 
(PSEYS) 
(PSEMD) 



(PASWD) 



(PASXS) 



GDSIIPRIM.PR DEFINES ALL GDS II SYSTEM PRIMITIUE COMMANDS 
COMMON TO ALL PRODUCTS 6DSII* CHIPS* CARDS* AND STICKS. 

SPECIFIC COMMANDS FOR EACH PRODUCT ARE LISTED IN THE 
CORRESPONDING -PRIM. PR FILE NOW 



THE COMMANDS ARE GROUPED INTO TWO CATEGORIES. 

THE FIRST CATEGORY IS CALLED USER COMMANDS. THESE COMMANDS WOULD 

NORMALLY BE USED BY THE OPERATOR IN AN INTERACTIVE SITUATION. 

THE SECOND CATEGORY IS CALLED SYSTEM COMMANDS. THESE FUNCTIONS WOULD 

NORMALLY BE USED BY GPL II PROGRAMS 

USER COMMANDS ARE INCLUDED IN THE OUTPUT OF "COMMANDS" AND MAY BE 

EXPECTED TO HAUE HELP FILES. SYSTEM COMMANDS ARE NOT DOCUMENTED ONLINE 



USER COMMANDS 

: STATION CONFIGURATION CONTROL COMMANDS 



EXTERNAL NILADIC, 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
J EXTERNAL NILADIC 
{EXTERNAL NILADIC 
EXTERNAL NILADIC* 
EXTERNAL NILADIC 
EXTERNAL NILADIC 
EXTERNAL NILADIC 
EXTERNAL NILADIC 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL MONADIC 
EXTERNAL NILADIC* 



MONADIC PROCEDURE* NILADIC FUNCTION AUTOHOLD (AHOLD) 

MONADIC PROCEDURE* MONADIC FUNCTION BUTTON 

MONADIC PROCEDURE* NILADIC FUNCTION BUTTONMODE CBUTMODE) 

PROCEDURE BUTTONBEGIN (BTBEGIN) 

PROCEDURE BUTTONEND (BTEND) 

MONADIC PROCEDURE DFUNCTION 
PROCEDURE HARDLOCKS 
PROCEDURE LOWERCASE 
PROCEDURE UPPERCASE 
PROCEDURE UPLOWCASE 

MONADIC PROCEDURE* NILADIC FUNCTION RMENU 

MONADIC PROCEDURE WSCREEN 

MONADIC PROCEDURE* NILADIC FUNCTION RSCREEN 

MONADIC PROCEDURE MENUMOUE 

MONADIC PROCEDURE* NILADIC FUNCTION SETTAB 

MONADIC PROCEDURE* NILADIC FUNCTION TABMODE 
PROCEDURE* NILADIC FUNCTION MENU 

MONADIC PROCEDURE* NILADIC FUNCTION INTERRUPTMODE (INRUPTS) 



: VIEW CONTROL 



EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC* 

NILADIC* 

NILADIC* 

NILADIC. 

NILADIC* 

NILADIC* 

NILADIC* 

NILADIC. 

NILADIC* 



MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 
MONADIC 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE* 

PROCEDURE* 

PROCEDURE* 



NILADIC FUNCTION UBTYPE 

NILADIC FUNCTION UBTYPEOFF CUBTPF) 

NILADIC FUNCTION UBTYPEON (VBTPN) 

NILADIC FUNCTION VDTYPE 

NILADIC FUNCTION UDTYPEOFF (UDTPF) 

NILADIC FUNCTION VDTYPEON (UDTPN) 

NILADIC FUNCTION MNTYPE 

NILADIC FUNCTION UNTYPEOFF (UNTPF) 

NILADIC FUNCTION UNTYPEON (UNTPN) 

NILADIC FUNCTION VTTYPE 

NILADIC FUNCTION VTTYPEOFF (VTTPF) 

NILADIC FUNCTION UTTYPEON (VTTPN) 

NILADIC FUNCTION VKIND 

NILADIC FUNCTION UKINDOFF (VKNDF) 

NILADIC FUNCTION UKINDON (UKNDN) 

NILADIC FUNCTION ULAYER 

NILADIC FUNCTION ULAYEROFF (ULYRF) 

NILADIC FUNCTION ULAYERON (MLYRN) 

NILADIC FUNCTION FILLBY (FBY) 

NILADIC FUNCTION COLORBY (CBY) 

NILADIC FUNCTION STYLEBY (SBY) 
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EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 

EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC 

NILADIC^ 

NILADIC* 

NILADIC 

NILADIC 

MONADIC 

NILADIC* 

NILADIC* 

NILADIC* 

NILADIC* 

NILADIC 

NILADIC* 



MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 



NILADIC FUNCTION SOLID 

NILADIC FUNCTION DOTTED 

NILADIC FUNCTION DASHED 

NILADIC FUNCTION BROKEN 

NILADIC FUNCTION SETCOLORS 

NILADIC FUNCTION RED 

NILADIC FUNCTION BLUE 

NILADIC FUNCTION GREEN 

NILADIC FUNCTION YELLOW 

NILADIC FUNCTION MAGENTA 

NILADIC FUNCTION CYAN 

NILADIC FUNCTION WHITE 

NILADIC FUNCTION FLAYER 

NILADIC FUNCTION FLAYERON (FLYRN) 

NILADIC FUNCTION FLAYEROFF (FLYRF) 

NILADIC FUNCTION FILLA 

NILADIC FUNCTION FILLB 

NILADIC FUNCTION FILLC 

NILADIC FUNCTION FILLD 

NILADIC FUNCTION FILLSET 



MONADIC PROCEDURE. 

MONADIC PROCEDURE MASKS 
PROCEDURE DISPLAYSTAT (DSPSTAT) 

MONADIC PROCEDURE* NILADIC FUNCTION ULEUELS 

MONADIC PROCEDURE* NILADIC FUNCTION GRID 
PROCEDURE REMOUE 
PROCEDURE REDRAW 

MONADIC PROCEDURE* NILADIC FUNCTION UIEW 

MONADIC PROCEDURE* NILADIC FUNCTION SETUIEW 

MONADIC PROCEDURE PAN 

MONADIC PROCEDURE UIEWMOUE (UWMOUE) 

MONADIC PROCEDURE ZOOM 

MONADIC PROCEDURE DATADRAW 

MONADIC PROCEDURE DATAREDRAW (DATADRAW) 
PROCEDURE* NILADIC FUNCTION DATAUIEW 

MONADIC PROCEDURE* NILADIC FUNCTION DATASETUIEW (DTSTUIEW) 

MONADIC PROCEDURE DATAPAN (DTPAN) 

MONADIC PROCEDURE DATAUIEWMOUE (DTUWMOUE) 

MONADIC PROCEDURE DATAZOOM (DTZOOM) 

MONADIC PROCEDURE* NILADIC FUNCTION VMODE(UWMODE) 

MONADIC PROCEDURE* NILADIC FUNCTION MARKSIZE 

MONADIC PROCEDURE* NILADIC FUNCTION SLIMSIZE 
PROCEDURE ITEMMARK 
PROCEDURE BOUNDARYMARK (BNDMARK) 
PROCEDURE PATHMARK 
PROCEDURE TEXTMARK 

MONADIC PROCEDURE SREFMARK 

MONADIC PROCEDURE AREFMARK 
PROCEDURE TEMPLATEMARK (TMPMARK) 
PROCEDURE EXTERIORMARK (EXTMARK) 
PROCEDURE KEYMARK 

MONADIC PROCEDURE MARK 

MONADIC PROCEDURE UNMARK 

MONADIC PROCEDURE COORDMARK (COMARK) 

MONADIC PROCEDURE RULER 
PROCEDURE* NILADIC FUNCTION MECTORCOUNT (UECCT) 

MONADIC PROCEDURE* NILADIC FUNCTION CIRCLESIZE (CIRCSIZE) 



: EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION SPLITUIEW 

: EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION SETLUIEW (LU) 

: EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION SETRUIEW (RU) 
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: EXTERNAL NILADIC^ MONADIC PROCEDURE* NILADIC FUNCTION UPAN 
.'EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION UZOOM 
.'EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION UTRACK 

: SCALE COMMANDS 

EXTERNAL NILADIC PROCEDURE SSTAT 

EXTERNAL NILADIC PROCEDURE ASCALE 

EXTERNAL NILADIC PROCEDURE BSCALE 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION GSCALE 

EXTERNAL NILADIC, MONADIC PROCEDURE RSCALE 

EXTERNAL NILADIC, MONADIC PROCEDURE MSCALE 

EXTERNAL NILADIC PROCEDURE XSCALE 

EXTERNAL NILADIC PROCEDURE YSCALE 

EXTERNAL NILADIC PROCEDURE ZSCALE 

: LIBRARY ACCESS COMMANDS 



EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 



MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE, 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 

PROCEDURE CLOSELIB 
MONADIC PROCEDURE 
MONADIC PROCEDURE 

PROCEDURE TREE 
MONADIC PROCEDURE 

PROCEDURE, NILADIC 
MONADIC PROCEDURE 
MONADIC PROCEDURE, 
MONADIC PROCEDURE 
MONADIC PROCEDURE, 
MONADIC PROCEDURE, 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE, 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE, 
MONADIC PROCEDURE, 
MONADIC PROCEDURE, 
MONADIC PROCEDURE, 
MONADIC PROCEDURE, 



RECOUERLIB 

RCSTRUCT 
NILADIC FUNCTION 

NEI4UNITS 
NILADIC FUNCTION 
NILADIC FUNCTION 
NILADIC FUNCTION 
NILADIC FUNCTION 
NILADIC FUNCTION 
NILADIC FUNCTION 
NILADIC FUNCTION 
NILADIC FUNCTION 

CLOSEREFl (CLOSl) 

CL0SEREF2 (CLOSE) 

LISTREFl CREFILIB 

LISTREF2 (REFELIB 

LISTLIB 

LISTGEN 

MER6ELI6 

(CLLIB) 

LSTAT 

SUMMARY 



INITLIB 

INFORM 
OUTFORM 
STREAMOUT 
OPENLIB (OLIB) 
OPENREFl (OPENl) 
0PENREF2 C0PEN2) 
TEMPREFl (TREFl) 
TEMPREF2 (TREF2) 



SHOMREFS 
FUNCTION 
FINDDATA 
NILADIC 
CSTRUCT 
NILADIC 
NILADIC 
BACKUP 
EXPUNGE 

NILADIC 
REUERT 
RSTRUCT 
SSTRUCT 
TSTRUCT 
VSTRUCT 
MONADIC 
MONADIC 
NILADIC 
NILADIC 
MONADIC 



CONTEXT 

FUNCTION BSTRUCT 

FUNCTION DSTRUCT 
FUNCTION ESTRUCT 

FUNCTION OSTRUCT 



FUNCTION EDATA 
FUNCTION ODATA 
FUNCTION LEUEL 
FUNCTION SETLEUEL 
FUNCTION EREF 
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EXTERNAL NILADIC, MONADIC PROCEDURE/ MONADIC FUNCTION OREF 
EXTERNAL NILADIC, MONADIC PROCEDURE* MONADIC FUNCTION ONAME 
EXTERNAL NILADIC, MONADIC PROCEDURE, MONADIC FUNCTION ENAME 
EXTERNAL NILADIC PROCEDURE SAUEDISPLAY 
EXTERNAL NILADIC, MONADIC PROCEDURE OPENDISPLAY 
EXTERNAL NILADIC, MONADIC PROCEDURE INITDISPLAY 
EXTERNAL NILADIC, MONADIC PROCEDURE LISTDISPLAY 
EXTERNAL NILADIC PROCEDURE UPDISPLAY 
EXTERNAL NILADIC, MONADIC PROCEDURE USTRUCT 

: DATA ENTRY COMMANDS 



EXTERNAL NILADIC, 
EXTERNAL NILADIC, 
EXTERNAL NILADIC, 



MONADIC PROCEDURE RT 
MONADIC PROCEDURE R3 
MONADIC PROCEDURE SEGS 



I DATA MOUEMENT COMMANDS 



EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
MONADIC 
MONADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 



MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
PROCEDURE, NILADIC 
PROCEDURE, NILADIC 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 
MONADIC PROCEDURE 



NILADIC FUNCTION SBTYPE 

NILADIC FUNCTION SBTYPEOFF (SBTPF) 

NILADIC FUNCTION SBTYPEON (SBTPN) 

NILADIC FUNCTION SDTYPE 

NILADIC FUNCTION SDTYPEOFF (SDTPF) 

NILADIC FUNCTION SDTYPEON (SDTPN) 

NILADIC FUNCTION SNTYPE 

NILADIC FUNCTION SNTYPEOFF (SNTPF) 

NILADIC FUNCTION SNTYPEON (SNTPN) 

NILADIC FUNCTION STTYPE 

NILADIC FUNCTION STTYPEOFF (STTPF) 

NILADIC FUNCTION STTYPEON (STTPN) 

NILADIC FUNCTION SKIND 

NILADIC FUNCTION SKINDOFF CSKNDF) 

NILADIC FUNCTION SKINDON (SKNDN) 

NILADIC FUNCTION SLAYER 

NILADIC FUNCTION SLAYEROFF (SLYRF) 

NILADIC FUNCTION SLAYERON (SLYRN) 

DATACOPY CDTCPY) 

DATADELETE (DTDEL) 

DATAMAGNIFY (DTMAG) 

DATAMOUE (DTMOU) 

DATAOUERSIZE (DTOUR) 

DATAROTATE (DTROT) 

DATAREFLECT (DTREF) 

FUNCTION DATATYPE 

FUNCTION PATHTYPE 

NEMTEXTTYPE 

NEMDATATYPE 

NEWNODETYPE 

NEWBOXTYPE 

NEMLAYER 

NEMANGLE 

NEUMA6 

NEMMIDTH 

NEMFONT 

NEMPATHTYPE 

EXPLODE 



: IDENTIFIED GROUP COMMANDS 

EXTERNAL NILADIC, MONADIC PROCEDURE IDEXPLODE 
EXTERNAL NILADIC PROCEDURE IDCLEAR 
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EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 
NILADIC 



MONADIC PROCEDURE IDCOPY 

MONADIC PROCEDURE IDDELETE 

MONADIC PROCEDURE ID 

MONADIC PROCEDURE IDADD 

MONADIC PROCEDURE UNID 

MONADIC PROCEDURE IDCLAYER 

MONADIC PROCEDURE IDCDATATYPE 

MONADIC PROCEDURE IDCNODETYPE 

MONADIC PROCEDURE IDCBOXTYPE 

MONADIC PROCEDURE IDCTEXTTYPE 

MONADIC PROCEDURE IDCPATHTYPE 

MONADIC PROCEDURE IDCMAG 

MONADIC PROCEDURE IDCANGLE 

MONADIC PROCEDURE IDCUIDTH 

MONADIC PROCEDURE IDCFONT 
PROCEDURE IDMARK 

MONADIC PROCEDURE IDREFLECT 

MONADIC PROCEDURE IDROTATE 

MONADIC PROCEDURE IDMOUE 

MONADIC PROCEDURE IDOUERSIZE 
PROCEDURE IDPATHEXP 

MONADIC PROCEDURE IDUINDOM 

MONADIC PROCEDURE UNIDUINDOU (UNWIN) 

MONADIC PROCEDURE WINCOPY (WNCPY) 

MONADIC PROCEDURE MINFENCE 

MONADIC PROCEDURE i4INDELETE CMNDEL) 

MONADIC PROCEDURE UINMOUE (MNMOU) 

MONADIC PROCEDURE, NILADIC FUNCTION WINOPTIONS 

MONADIC PROCEDURE, NILADIC FUNCTION OPTIONS (WINOPTIONS) 

MONADIC PROCEDURE WINSTRETCH CWNSTR) 



! GRAPHIC EDITOR 



EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION PATHED6E 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION GEDMODE 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION DEFMODE 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION INTCHECKMODE 

EXTERNAL NILADIC PROCEDURE SETDEFAULTS 

EXTERNAL NILADIC PROCEDURE SHOMDEFAULTS 

EXTERNAL NILADIC, MONADIC PROCEDURE ITEMROTATE 

EXTERNAL NILADIC, MONADIC PROCEDURE ITEMREFLECT (IREFLECT) 

EXTERNAL NILADIC, MONADIC PROCEDURE GETITEM 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION ISTAT 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION ITEM 

EXTERNAL NILADIC, MONADIC PROCEDURE ITEMCOPY 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION ABSANGLE 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION ABSMAG 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION ABSMIDTH 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION ANGLE 

EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION AREF 

EXTERNAL MONADIC PROCEDURE, NILADIC FUNCTION ASHAPE 

EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION BOUNDARY 

EXTERNAL NILADIC PROCEDURE, NILADIC FUNCTION BOX 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION BOXTYPE 

EXTERNAL NILADIC, MONADIC PROCEDURE CE 

EXTERNAL NILADIC, MONADIC PROCEDURE. MONADIC FUNCTION COORDS 

EXTERNAL NILADIC PROCEDURE EDGE 

EXTERNAL NILADIC, MONADIC PROCEDURE, NILADIC FUNCTION ENTERTEXT 

EXTERNAL NILADIC, MONADIC PROCEDURE REDO 

EXTERNAL NILADIC, MONADIC PROCEDURE DUERT 

EXTERNAL NILADIC PROCEDURE CLOSE (6CL0SE) 



(ENTEXT) 
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EXTERNAL NILADIC, MONADIC PROCEDURE GET 

EXTERNAL NILADIC* MONADIC PROCEDURE 6ETP 

EXTERNAL NILADIC PROCEDURE UNGET 

EXTERNAL NILADIC/ MONADIC PROCEDURE MOUEPOINT 

EXTERNAL NILADIC PROCEDURE* NILADIC FUNCTION NODE 

EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION NODETYPE 

EXTERNAL NILADIC PROCEDURE OCTAGONAL 

EXTERNAL NILADIC PROCEDURE ORTHINT 

EXTERNAL NILADIC* MONADIC PROCEDURE* 

EXTERNAL NILADIC* MONADIC PROCEDURE* 

EXTERNAL NILADIC* MONADIC PROCEDURE* 

EXTERNAL NILADIC* MONADIC PROCEDURE* 

EXTERNAL NILADIC* MONADIC PROCEDURE* 

EXTERNAL NILADIC PROCEDURE STRAIGHT 

EXTERNAL NILADIC PROCEDURE H0RI2FIRST 

EXTERNAL NILADIC PROCEDURE VERTFIRST 

EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION RTDIGMODE(RTDMODE) 

EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION CURMODE 



NILADIC FUNCTION TEMPLATE (TMPL ATE) 
NILADIC FUNCTION PLEX 
NILADIC FUNCTION PLEXMODE 
NILADIC FUNCTION SNAPMODE 
NILADIC FUNCTION SNAPSIZE 



EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION FONT 
EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION BINDFONTS 
EXTERNAL NILADIC* MONADIC PROCEDURE FONTINFO 
EXTERNAL NILADIC PROCEDURE* NILADIC FUNCTION TEXT 
EXTERNAL NILADIC* MONADIC PROCEDURE TEXTFONT (FONTC) 
EXTERNAL MONADIC PROCEDURE* NILADIC FUNCTION TEXTTYPE 
EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION TJUST 



EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 

EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



NILADIC* MONADIC PROCEDURE SUBRT 

NILADIC* MONADIC PROCEDURE ADDRT 

NILADIC* MONADIC PROCEDURE INTRT 

NILADIC* MONADIC PROCEDURE CUTPATHIN (TPAI) 

NILADIC* MONADIC PROCEDURE CUTPATHOUT (TPAO) 

MONADIC PROCEDURE* NILADIC FUNCTION MAG 

MONADIC PROCEDURE* NILADIC FUNCTION LAYER 

NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION PUT 

NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION PUTALL 

NILADIC PROCEDURE* NILADIC FUNCTION PATH 

MONADIC PROCEDURE* NILADIC FUNCTION WIDTH 

NILADIC* MONADIC FUNCTION SNAP 

NILADIC* MONADIC PROCEDURE UNDO 

MONADIC PROCEDURE* NILADIC FUNCTION SNAME 

MONADIC PROCEDURE* NILADIC FUNCTION REFL 

NILADIC PROCEDURE ITEMREUERSE (RURSE) 

NILADIC PROCEDURE* NILADIC FUNCTION SREF 

MONADIC* NILADIC PROCEDURE STRETCH CST) 

NILADIC* MONADIC PROCEDURE MOUE 

NILADIC* MONADIC PROCEDURE MIPE 
NILADIC* MONADIC PROCEDURE UIPEALL 
NILADIC FUNCTION LASTCOORD (LASTC) 
NILADIC* MONADIC PROCEDURE ARC 
NILADIC* MONADIC PROCEDURE CIRCLE 
NILADIC* MONADIC PROCEDURE FILLET 



: PROPERTY LISTS 

EXTERNAL NILADIC* MONADIC PROCEDURE DEFATTR 

EXTERNAL NILADIC* MONADIC PROCEDURE LISTATTR 

EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION BINDATTR 

EXTERNAL NILADIC* MONADIC PROCEDURE USERPROP( PROPERTY) 

EXTERNAL NILADIC PROCEDURE CLRPROP 
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EXTERNAL NILADIC, MONADIC FUNCTION PROPUALUE 
; TEXT EDITOR 



EXTERNAL 


NILADIC 


PROCEDURE^ NILADIC 


FUNCTION ESTAT 


EXTERNAL 


NILADICi 


, MONADIC 


PROCEDURE 


A 


EXTERNAL 


NILADIC 


PROCEDURE B 




EXTERNAL 


NILADICi 


, MONADIC 


PROCEDURE 


CH 


EXTERNAL 


NILADIC; 


' MONADIC 


PROCEDURE 


DB 


EXTERNAL 


NILADIC 


, MONADIC 


PROCEDURE 


DE 


EXTERNAL 


NILADIC- 


► MONADIC 


PROCEDURE 


DLN 


EXTERNAL 


NILADICi 


, MONADIC 


PROCEDURE 


DS 


EXTERNAL 


NILADICi 


f MONADIC 


PROCEDURE 


G 


EXTERNAL 


NILADIC 


. MONADIC 


PROCEDURE 


I 


EXTERNAL 


NILADICi 


^ MONADIC 


PROCEDURE 


IB 


EXTERNAL 


NILADICi 


, MONADIC 


PROCEDURE 


I COPY 


EXTERNAL 


NILADICi 


p MONADIC 


PROCEDURE 


IE 


EXTERNAL 


NILADIC 


f MONADIC 


PROCEDURE 


IFILE 


EXTERNAL 


NILADICi 


> MONADIC 


PROCEDURE 


IMOUE 


EXTERNAL 


NILADICi 


f MONADIC 


PROCEDURE 


J 


EXTERNAL 


NILADIC 


PROCEDURE JOIN 




EXTERNAL 


NILADIC 


f MONADIC 


PROCEDURE 


K 


EXTERNAL 


NILADICi 


» MONADIC 


PROCEDURE 


L 


EXTERNAL 


NILADIC 


, MONADIC 


PROCEDURE 


SPLIT (LSPLIT) 


EXTERNAL 


NILADICi 


f MONADIC 


PROCEDURE 


S 


EXTERNAL 


NILADICi 


> MONADIC 


PROCEDURE 


SB 


EXTERNAL 


NILADICi 


p MONADIC 


PROCEDURE 


T 


EXTERNAL 


NILADIC 


F MONADIC 


PROCEDURE 


U 


EXTERNAL 


NILADIC 


PROCEDURE 2 




EXTERNAL 


NILADIC 


PROCEDURE I ITEM 




EXTERNAL 


NILADIC 


PROCEDURE WITEM 





: BACKGROUND JOB CONTROL 



EXTERNAL NILADIC* 
EXTERNAL MONADIC 
EXTERNAL NILADIC* 
: EXTERNAL MONAD I 
: EXTERNAL MONADI 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC* 
EXTERNAL NILADIC 
EXTERNAL NILADIC* 



MONADIC PROCEDURE JOBABORT (ABORT) 
FUNCTION JOBENTER 

MONADIC PROCEDURE* NILADIC FUNCTION JOBCREATE 
C PROCEDURE JOBDEQUEUE 
C PROCEDURE JOBENQUEUE 

MONADIC PROCEDURE JOBINFO 

MONADIC PROCEDURE JOBLOG 

MONADIC PROCEDURE JOBPRIORITY (PRIO) 

MONADIC PROCEDURE JOBSTART (RESTART) 

MONADIC PROCEDURE JOBSUSPEND (SUSPEND) 

MONADIC PROCEDURE PAUSE 
PROCEDURE* NILADIC FUNCTION PLOTSTAT 

MONADIC PROCEDURE RS 



: SYSTEM UTILITIES 

EXTERNAL NILADIC PROCEDURE SYSTAT 

EXTERNAL NILADIC PROCEDURE SYSDPY 

EXTERNAL NILADIC PROCEDURE STADPY (CONDPY) 

EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION MEMORY 

EXTERNAL NILADIC* MONADIC PROCEDURE COMMANDS 

EXTERNAL NILADIC* MONADIC PROCEDURE FUNCTIONS 

EXTERNAL NILADIC* MONADIC PROCEDURE TYPE 

EXTERNAL NILADIC* MONADIC PROCEDURE HELP 

EXTERNAL NILADIC PROCEDURE DIRECTORY 

EXTERNAL NILADIC PROCEDURE* NILADIC FUNCTION DISK 

EXTERNAL NILADIC* MONADIC PROCEDURE FPRINT 
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EXTERNAL NILADIC* MONADIC PROCEDURE FLIST 

EXTERNAL NILADIC, MONADIC PROCEDURE FDELETE 

EXTERNAL NILADIC, MONADIC PROCEDURE FCHATR 

EXTERNAL NILADIC, MONADIC PROCEDURE FCOPY 

EXTERNAL NILADIC, MONADIC PROCEDURE FINIT 

EXTERNAL NILADIC/ MONADIC PROCEDURE FRELEASE 

EXTERNAL NILADIC, MONADIC PROCEDURE FLINK 

EXTERNAL NILADIC, MONADIC PROCEDURE FUNLINK 

EXTERNAL NILADIC, MONADIC PROCEDURE FRENAME 

EXTERNAL NILADIC, MONADIC PROCEDURE FCCONT 

EXTERNAL NILADIC* MONADIC PROCEDURE START 

EXTERNAL NILADIC PROCEDURE QUIT 

EXTERNAL NILADIC* MONADIC PROCEDURE ABSTATION 

EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION LOG 

EXTERNAL NILADIC PROCEDURE ENDLOG 

EXTERNAL NILADIC* MONADIC PROCEDURE UPLIB 

EXTERNAL NILADIC* MONADIC PROCEDURE UPFONT 

EXTERNAL NILADIC PROCEDURE SPOOLQ 

EXTERNAL NILADIC* MONADIC PROCEDURE* NILADIC FUNCTION TIME 

EXTERNAL MONADIC PROCEDURE SLEEP 

EXTERNAL NILADIC* MONADIC PROCEDURE HARDCOPY 

: CaltnaNet commands 

EXTERNAL NILADIC* MONADIC PROCEDURE SETMEMORY 
EXTERNAL NILADIC PROCEDURE 6ETMEM0RY 
EXTERNAL NILADIC* MONADIC PROCEDURE NFSTAT 
EXTERNAL NILADIC PROCEDURE NFCONT 
EXTERNAL NILADIC* MONADIC PROCEDURE NFMOUE 
EXTERNAL NILADIC PROCEDURE SYSID 
EXTERNAL NILADIC PROCEDURE AKNUM 

; GPL COMMANDS 

EXTERNAL NILADIC* MONADIC PROCEDURE GPL 

EXTERNAL NILADIC* MONADIC PROCEDURE LOAD (LOADOBJ) 

EXTERNAL NILADIC PROCEDURE NAMES 

EXTERNAL NILADIC FUNCTION SYSN 

EXTERNAL NILADIC PROCEDURE UARS 

EXTERNAL NILADIC PROCEDURE SUBS 

EXTERNAL NILADIC PROCEDURE MASTAT 

EXTERNAL NILADIC PROCEDURE CLEAR (6XCLEAR) 

EXTERNAL NILADIC* MONADIC PROCEDURE BREAKPOINT CBPOINT) 

EXTERNAL NILADIC PROCEDURE PROCEED (PCEED) 

EXTERNAL NILADIC PROCEDURE STEP (PSTEP) 

EXTERNAL MONADIC PROCEDURE TOLINE 

SYSTEM FUNCTIONS 

: GPL INPUT OPERATORS 

EXTERNAL NILADIC* MONADIC FUNCTION EXPINPUT 
EXTERNAL NILADIC* MONADIC FUNCTION TEXTINPUT 
EXTERNAL NILADIC* MONADIC FUNCTION DIGIN 

: GPL COMPILER AND OUTPUT FORMATTER INTERFACE 

EXTERNAL MONADIC PROCEDURE CALL 
EXTERNAL MONADIC FUNCTION TRAPCALL (CALL) 
EXTERNAL MONADIC FUNCTION TRAP CALL (CALL) 
EXTERNAL MONADIC FUNCTION EXECUTE 
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EXTERNAL MONADIC FUNCTION FORMAT (GOUT) 
EXTERNAL MONADIC FUNCTION CFORMAT(FFORMAT) 

I GPL OPERATORS PENDING DEFINITION IN KEYWORDS 

EXTERNAL DYADIC FUNCTION BITOR 

EXTERNAL DYADIC FUNCTION BITAND 

EXTERNAL DYADIC FUNCTION BITXOR 

EXTERNAL DYADIC FUNCTION UNION 

EXTERNAL DYADIC FUNCTION INTERSECT (INTERSECTION) 

EXTERNAL DYADIC FUNCTION MEMBER 

EXTERNAL DYADIC FUNCTION SUBSET 

EXTERNAL DYADIC FUNCTION MINUS (DIFFERENCE) 

EXTERNAL MONADIC FUNCTION ARCSIN (ARSIN) 

EXTERNAL MONADIC FUNCTION ARCCOS (ARCOS) 

EXTERNAL MONADIC FUNCTION POLAR 

EXTERNAL MONADIC FUNCTION CARTESIAN 

EXTERNAL NILADIC FUNCTION ENCLOSE 

EXTERNAL NILADIC FUNCTION COORDFILE (ENCLOSE) 

EXTERNAL MONADIC FUNCTION INEXCLUDE 

EXTERNAL DYADIC FUNCTION DROUND (DYROUND) 

EXTERNAL DYADIC FUNCTION CLOSEST TO (SHDISTANCE) 

EXTERNAL DYADIC FUNCTION CLOSESTTO (SHDISTANCE) 

EXTERNAL MONADIC FUNCTION MIN MAX (MINMAX) 

EXTERNAL MONADIC FUNCTION MINMAX 

EXTERNAL MONADIC FUNCTION LINE INTERSECT (LSINTERSECT) 

EXTERNAL MONADIC FUNCTION LINEINTERSECT (LSINTERSECT) 

EXTERNAL DYADIC FUNCTION INDICES OF (INDICES) 

EXTERNAL DYADIC FUNCTION INDICESOF (INDICES) 

EXTERNAL DYADIC FUNCTION INSIDE POLYGON (INSPOLY) 

EXTERNAL DYADIC FUNCTION INSIDEBOUNDARY (INSPOLY) 

EXTERNAL MONADIC FUNCTION POLYGON AREA (POLYAREA) 

EXTERNAL MONADIC FUNCTION BOUNDARYAREA (POLYAREA) 

EXTERNAL NILADIC* MONADIC FUNCTION ROUND 

EXTERNAL NILADIC/ MONADIC PROCEDURE ERROR (EUSER) 

: GPL/CDOS INTERFACE 

EXTERNAL NILADIC* MONADIC FUNCTION FILEINFO 
EXTERNAL DYADIC, MONADIC FUNCTION FETCH 
EXTERNAL DYADIC PROCEDURE SAUE 
EXTERNAL NILADIC FUNCTION GTIME (GXTIME) 
EXTERNAL NILADIC FUNCTION DAY (GXDAY) 
EXTERNAL NILADIC FUNCTION TOD (GXTOD) 
EXTERNAL NILADIC FUNCTION CRTTYPE 
EXTERNAL NILADIC FUNCTION TABTYPE 
EXTERNAL NILADIC FUNCTION STANUM 

I GPL — LIBRARY ACCESS FUNCTIONS 

EXTERNAL NILADIC FUNCTION NAMESOPEN (NMOPEN) 

EXTERNAL NILADIC, MONADIC FUNCTION NAMESBOUND (NMBOUND) 

EXTERNAL NILADIC. MONADIC FUNCTION STRUCINFO (STRUINFO) 

EXTERNAL NILADIC^ MONADIC FUNCTION STRUCLIST CSTRULIST) 

EXTERNAL NILADIC. MONADIC FUNCTION STADPYINFO 

EXTERNAL NILADIC FUNCTION STRUCOPEN (STRUOPEN) 

I EXTERNAL NILADIC, MONADIC FUNCTION FONTINFO 

I GPL/DATA BASE INTERFACE 

EXTERNAL NILADIC, MONADIC FUNCTION KEYCE 



EXTERNAL NILADIC, MONADIC FUNCTION CEKEY 

EXTERNAL MONADIC FUNCTION LOCALTOGLOBAL 

EXTERNAL MONADIC FUNCTION GLOBALTOLOCAL 

EXTERNAL NILADIC* MONADIC FUNCTION DATAEXTENT (GDEXTENT) 

EXTERNAL NILADIC FUNCTION UIEWEXTENT (GDUWEXT) 

EXTERNAL NILADIC FUNCTION UIEMUINDOU (6DUMMIN) 

EXTERNAL NILADIC FUNCTION IDKEYS (GDIDKEYS) 

EXTERNAL NILADIC FUNCTION NSELECT (GDSELECT) 

EXTERNAL MONADIC FUNCTION MSELECT (GDSELECT) 

EXTERNAL DYADIC FUNCTION DSELECT (GDSELECT) 

EXTERNAL MONADIC FUNCTION USELECT 

EXTERNAL MONADIC FUNCTION GETEL (GDGETEL) 

EXTERNAL MONADIC PROCEDURE PUTEL (GDPUTEL) 

EXTERNAL MONADIC FUNCTION PATHBOUNDARY (PATHBNDARY) 

: GPL/JOB SYSTEM INTERFACE 

EXTERNAL NILADIC FUNCTION JOBID 

: EXTERNAL NILADIC FUNCTION JOBQUEUE 

: GPL/JOB PARAMETER FILE FILE INTERFACE 

EXTERNAL MONADIC FUNCTION JOBREAD 
EXTERNAL MONADIC PROCEDURE JOBURITE 
EXTERNAL MONADIC FUNCTION JOBRSTR 
EXTERNAL MONADIC PROCEDURE JOBMSTR 
EXTERNAL MONADIC FUNCTION GETREAL4 (GETR4) 
EXTERNAL MONADIC FUNCTION GETREAL2 (GETR2) 
EXTERNAL MONADIC FUNCTION GETINT2 
EXTERNAL MONADIC FUNCTION PUTREAL4 (PUTR4) 
EXTERNAL MONADIC FUNCTION PUTREAL2 (PUTR2) 
EXTERNAL MONADIC FUNCTION PUTINT2 

: GPL BACKGROUND EXPLODER COMMANDS. 

EXTERNAL NILADIC PROCEDURE RTEXP 

EXTERNAL NILADIC/ MONADIC PROCEDURE BGEXP 

EXTERNAL NILADIC, MONADIC PROCEDURE EXPTRACE 

EXTERNAL NILADIC FUNCTION READUIEU (RDUIEi4) 

EXTERNAL MONADIC PROCEDURE CENTERLINE (CTLINE) 

EXTERNAL MONADIC PROCEDURE UIEUOMERSIZE (EOCOMMAIN) 

EXTERNAL NILADIC, MONADIC PROCEDURE 0UTPUTUIEI4( JIDRCUIEM) 

EXTERNAL NILADIC, MONADIC PROCEDURE EKIND 

EXTERNAL NILADIC, MONADIC PROCEDURE EKINDON (EKNDN) 

EXTERNAL NILADIC, MONADIC PROCEDURE EKINDOFF (EKNDF) 

EXTERNAL NILADIC, MONADIC PROCEDURE ELAYER 

EXTERNAL NILADIC, MONADIC PROCEDURE ELAYERON (ELYRN) 

EXTERNAL NILADIC, MONADIC PROCEDURE ELAYEROFF (ELYRF) 

: GPL DRC INTERFACE 

EXTERNAL NILADIC, MONADIC PROCEDURE DRCUERBOSE 
EXTERNAL NILADIC PROCEDURE DRCTIMER 
EXTERNAL NILADIC PROCEDURE UDRCINIT(UDRCINIT) 
EXTERNAL NILADIC PROCEDURE UDRCSHUTDOUN(UDRCSHUTDOUN) 
EXTERNAL NILADIC PROCEDURE UDRCRESTART(UDRCRESTART) 
EXTERNAL MONADIC FUNCTION INPUTMASK(INMASK) 
EXTERNAL MONADIC PROCEDURE OUTPUTMASK(OUTMASK) 
EXTERNAL MONADIC PROCEDURE OUTPUTPATH(OUtPATH) 
EXTERNAL MONADIC PROCEDURE CHECKEXTERIORl (CHEXl ) 
EXTERNAL MONADIC PROCEDURE CHECKEXTERI0R2(CHEX2) 
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EXTERNAL MONADIC PROCEDURE CHECKINTERIORCCHIN) 

EXTERNAL MONADIC FUNCTION 0UERSI2E(0VS2) 

EXTERNAL MONADIC FUNCTION UNDERSIZECUNSZ) 

EXTERNAL MONADIC FUNCTION CHECKAREA(CHAREA) 

EXTERNAL MONADIC FUNCTION ROUNDMASK(RNDMASK) 

EXTERNAL DYADIC FUNCTION MOR 

EXTERNAL DYADIC FUNCTION MAND 

EXTERNAL DYADIC FUNCTION MANDNOT 

EXTERNAL DYADIC FUNCTION MXOR 

EXTERNAL DYADIC FUNCTION ANDNOTC MANDNOT) 

EXTERNAL MONADIC PROCEDURE 0UTPUTCHAN6E( JICHANGE) 

EXTERNAL MONADIC PROCEDURE MASKFREE 

EXTERNAL MONADIC PROCEDURE MASKSAUECMASKZSAUE) 

EXTERNAL MONADIC PROCEDURE UMASKSAUECUXZMASKSAUE) 

EXTERNAL MONADIC FUNCTION MASKRESTORE 

EXTERNAL MONADIC FUNCTION UMASKRESTORE(UXMASKRESTORE) 

: GPL/GED INTERFACE 

EXTERNAL NILADIC FUNCTION GEDTYPE (6GKIND) 
EXTERNAL NILADIC FUNCTION GEDKEY (GGKEY) 
EXTERNAL NILADIC FUNCTION GEDPLEX (GGPLEX) 
: EXTERNAL NILADIC FUNCTION GEDLINKS C6GLINKS) 
EXTERNAL NILADIC FUNCTION GEDCOORDS (GGCOORDS) 
EXTERNAL NILADIC FUNCTION GEDLAYER (GGLAYER) 
EXTERNAL NILADIC FUNCTION GEDPATHTYPE (GGPATHTYPE) 
EXTERNAL NILADIC FUNCTION GEDDATATYPE (GGDTYPE) 
EXTERNAL NILADIC FUNCTION GEDTEXTTYPE (GGTTYPE) 
EXTERNAL NILADIC FUNCTION GEDWIDTH (GGWIDTH) 
EXTERNAL NILADIC FUNCTION GEDNAME (GGNAME) 
EXTERNAL NILADIC FUNCTION GEDTRANSFORM (GGTRANSFORM) 
EXTERNAL NILADIC FUNCTION GEDTEXT (G6TEXT) 
EXTERNAL NILADIC FUNCTION GEDFONT (GGFOHT) 
EXTERNAL NILADIC FUNCTION GEDASHAPE (66ASHAPE) 
EXTERNAL NILADIC FUNCTION GEDINTEGER (6GINTEGER) 
EXTERNAL NILADIC FUNCTION GEDSTRING (GGSTRING) 
EXTERNAL NILADIC FUNCTION GEDELEMENT CG6ELEMENT) 
EXTERNAL NILADIC FUNCTION GEDDIGMODE (GGDMODE) 
EXTERNAL MONADIC PROCEDURE DIGMODE CGSDMODE) 

; GPL Drawing Routine 

EXTERNAL NILADIC. MONADIC PROCEDURE GPLDRAW 

: ALL COMMANDS AFTER THIS POINT ARE EXCLUDED FROM THE "COMMANDS" LIST 

EXTERNAL NILADIC, MONADIC PROCEDURE IDBADPLEK 

EXTERNAL NILADIC PROCEDURE BUGCLASS 

EXTERNAL NILADIC PROCEDURE ZTOOL 

EXTERNAL NILADIC, MONADIC PROCEDURE eHQPERTY 

EXTERNAL NILADIC, MONADIC FUNCTION FlLETtsf 

EXTERNAL NILADIC, MONADIC PROCEDURE NAMTABLE 

EXTERNAL NILADIC, MONADIC PROCEDURE QUID 

EXTERNAL NILADIC PROCEDURE DEBUG 

EXTERNAL NILADIC PROCEDURE OCTUMD 

EXTERNAL NILADIC PROCEDURE HEXUflD 

EXTERNAL NILADIC, MONADIC PROCEDURE LOOKAHEAD 

EXTERNAL NILADIC, MONADIC PROCEDURE ULT 

EXTERNAL NILADIC, MONADIC FUNCTION LIBUNITS 

EXTERNAL NILADIC, MONADIC FUNCTION LIBFONT 

EXTERNAL NILADIC, MONADIC PROCEDURE CREATECCRFILE) 
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: EXTERNAL NILADIC^ MONl^DIC PROCEDURE SKETCH 
{EXTERNAL NILADIC PROCEDURE CREF 
EXTERNAL MONADIC FUNCTION SQUAREMASKCSORMASK) 
EXTERNAL NILADIC PROCEDURE TIMETEST 

: INCLUDING PHTOOL INTO GDSIIPRIM.PR BECUASE IT IS BEING USED BY CHIPS 

: CUSTOMERS ALSO. 

EXTERNAL NILADIC* MONADIC FUNCTION PHTOOL 



: END OF GDSIIPRIM.PR 
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